(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    379481,       8469]
NotebookOptionsPosition[    356705,       8115]
NotebookOutlinePosition[    357100,       8131]
CellTagsIndexPosition[    357057,       8128]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
 May 23, 2025
 Duffy, Lebeau, Puzzello

 This file replicates Figures 1, 2 and B1.\
\>", "Abstract",
 CellChangeTimes->{{3.7723830740097413`*^9, 3.772383095258909*^9}, {
  3.957090906420583*^9, 3.9570909445413375`*^9}, {3.9570909827854676`*^9, 
  3.957090987918532*^9}},ExpressionUUID->"b1d98d51-22e8-49ab-ac71-\
41e2b00686c7"],

Cell[CellGroupData[{

Cell["Functional forms and parameters", "Section",
 CellChangeTimes->{{3.772383553687727*^9, 
  3.7723835716482725`*^9}},ExpressionUUID->"5d08c9a9-2d09-407d-9f02-\
20da1544b079"],

Cell[BoxData[
 RowBox[{
  RowBox[{"algo2", "[", 
   RowBox[{
   "qstarWanted_", ",", "aWanted_", ",", "qmaxWanted_", ",", 
    "surplusStarWanted_"}], "]"}], ":=", " ", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "list", ",", "list2", ",", "ratio", ",", "Achoice", ",", "Bchoice", ",", 
      " ", "Achoice2", ",", "Bchoice2", ",", "qstarOut", ",", 
      "surplusStarOut", ",", "qmaxOut", ",", "deltaSurplus", ",", " ", 
      "bchoice"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"b", "[", 
       RowBox[{"qstarWantedL_", ",", "qmaxWantedL_", ",", "aWantedL_"}], 
       "]"}], ":=", 
      RowBox[{"b", "/.", 
       RowBox[{
        RowBox[{"FindRoot", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"qstarWantedL", " ", "/", "qmaxWantedL"}], "-", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"aWantedL", "/", "b"}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"1", "/", 
              RowBox[{"(", 
               RowBox[{"b", "-", "aWantedL"}], ")"}]}], ")"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"b", ",", "0.1"}], "}"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"AoverB", "[", 
       RowBox[{"qstarWantedL_", ",", "aL_", ",", "bL_"}], "]"}], ":=", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"bL", "/", "aL"}], ")"}], 
       RowBox[{"qstarWantedL", "^", 
        RowBox[{"(", 
         RowBox[{"bL", "-", "aL"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"qstar", "[", 
       RowBox[{"AL_", ",", "aL_", ",", "BL_", ",", "bL_"}], "]"}], ":=", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"aL", " ", 
         RowBox[{"AL", "/", 
          RowBox[{"(", 
           RowBox[{"bL", " ", "BL"}], ")"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"bL", "-", "aL"}], ")"}]}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"qmax", "[", 
       RowBox[{"AL_", ",", "aL_", ",", "BL_", ",", "bL_"}], "]"}], ":=", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"AL", "/", "BL"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{"bL", "-", "aL"}], ")"}]}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"surplusStar", "[", 
       RowBox[{"AL_", ",", "aL_", ",", "BL_", ",", "bL_"}], "]"}], ":=", " ", 
      RowBox[{
       RowBox[{"AL", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"qstar", "[", 
           RowBox[{"AL", ",", "aL", ",", "BL", ",", "bL"}], "]"}], ")"}], "^",
          "aL"}]}], " ", "-", " ", 
       RowBox[{"BL", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"qstar", "[", 
           RowBox[{"AL", ",", "aL", ",", "BL", ",", "bL"}], "]"}], ")"}], "^",
          "bL"}]}]}]}], " ", ";", "\[IndentingNewLine]", 
     RowBox[{"list", " ", "=", " ", 
      RowBox[{"{", 
       RowBox[{"qstarWanted", ",", " ", "qmaxWanted", ",", " ", "aWanted"}], 
       "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"bchoice", "=", " ", 
      RowBox[{"Apply", "[", 
       RowBox[{"b", ",", "list"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"list2", " ", "=", " ", 
      RowBox[{"{", 
       RowBox[{"qstarWanted", ",", "aWanted", ",", "bchoice"}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Achoice", "=", " ", 
      RowBox[{"Apply", "[", 
       RowBox[{"AoverB", ",", "list2"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Bchoice", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Achoice2", " ", "=", " ", 
      RowBox[{"Achoice", " ", "*", " ", 
       RowBox[{"(", 
        RowBox[{"surplusStarWanted", "/", 
         RowBox[{"surplusStar", "[", 
          RowBox[{"Achoice", ",", 
           RowBox[{"list2", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", "Bchoice", ",", 
           RowBox[{"list2", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Bchoice2", " ", "=", " ", 
      RowBox[{"Bchoice", "*", 
       RowBox[{"(", 
        RowBox[{"surplusStarWanted", "/", 
         RowBox[{"surplusStar", "[", 
          RowBox[{"Achoice", ",", 
           RowBox[{"list2", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", "Bchoice", ",", 
           RowBox[{"list2", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"qstarOut", " ", "=", " ", 
      RowBox[{"qstar", "[", 
       RowBox[{"Achoice2", ",", 
        RowBox[{"list2", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", "Bchoice2", ",", 
        RowBox[{"list2", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"surplusStarOut", " ", "=", " ", 
      RowBox[{"surplusStar", "[", 
       RowBox[{"Achoice2", ",", 
        RowBox[{"list2", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", "Bchoice2", ",", 
        RowBox[{"list2", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"qmaxOut", "=", 
      RowBox[{"qmax", "[", 
       RowBox[{"Achoice2", ",", 
        RowBox[{"list2", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", "Bchoice2", ",", 
        RowBox[{"list2", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"deltaSurplus", " ", "=", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Achoice2", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"qstarOut", "+", "x"}], ")"}], "^", "aWanted"}]}], " ", 
           "-", " ", 
           RowBox[{"Bchoice2", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"qstarOut", "+", "x"}], ")"}], "^", "bchoice"}]}]}], 
          ")"}], "-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Achoice2", " ", 
            RowBox[{
             RowBox[{"(", "qstarOut", ")"}], "^", "aWanted"}]}], " ", "-", 
           " ", 
           RowBox[{"Bchoice2", 
            RowBox[{
             RowBox[{"(", "qstarOut", ")"}], "^", "bchoice"}]}]}], ")"}]}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "2"}], ",", "2", ",", "0.05"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "qstarOut", ",", "surplusStarOut", ",", "qmaxOut", ",", "Achoice2", ",",
        "Bchoice2", ",", "bchoice", ",", "deltaSurplus"}], "}"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.758984536186141*^9, 3.7589850339074464`*^9}, {
   3.7589850791000824`*^9, 3.7589851088985286`*^9}, {3.758985614894831*^9, 
   3.758985656343135*^9}, {3.7589862026595564`*^9, 3.7589862042064056`*^9}, {
   3.7590817188375916`*^9, 3.7590818606526365`*^9}, {3.7590823346759253`*^9, 
   3.7590823844930477`*^9}, {3.759082415654649*^9, 3.7590825434646273`*^9}, {
   3.7590839774607735`*^9, 3.7590839780388527`*^9}, {3.759413333923603*^9, 
   3.7594136349776897`*^9}, {3.75941369148993*^9, 3.759413773783801*^9}, {
   3.759413902867532*^9, 3.759413903263431*^9}, {3.7594139764955177`*^9, 
   3.7594139770353823`*^9}, 3.7594140829091945`*^9, {3.759414124728692*^9, 
   3.759414126986086*^9}, {3.8387502733871984`*^9, 3.838750276586138*^9}, 
   3.8388064387457438`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"be53a675-8502-48b9-b852-98d689aaab8e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"u", "[", 
    RowBox[{"q_", ",", "a_", ",", "A_"}], "]"}], ":=", " ", 
   RowBox[{"A", " ", 
    RowBox[{"q", "^", "a"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.759173982954298*^9, 3.759174039084347*^9}, {
  3.842449459317095*^9, 3.8424494604674587`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"156848c4-d708-40ea-96ef-a70f052b02db"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c", "[", 
    RowBox[{"q_", ",", "b_", ",", "B_"}], "]"}], ":=", " ", 
   RowBox[{"B", " ", 
    RowBox[{"q", "^", "b"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7591740128024435`*^9, 3.7591740433809056`*^9}, {
  3.7717742948382506`*^9, 3.771774295927064*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"d3571ed8-adc2-4d31-916e-51459d584dd7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"uprime", "[", 
   RowBox[{"q_", ",", "a_", ",", "A_"}], "]"}], ":=", 
  RowBox[{"a", " ", "A", " ", 
   RowBox[{"q", "^", 
    RowBox[{"(", 
     RowBox[{"a", "-", "1"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7591833494151287`*^9, 3.7591833650792255`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"0947fe8f-13de-4b50-adb5-c6216b5b7058"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cprime", "[", 
   RowBox[{"q_", ",", "b_", ",", "B_"}], "]"}], ":=", " ", 
  RowBox[{"b", " ", "B", " ", 
   RowBox[{"q", "^", 
    RowBox[{"(", 
     RowBox[{"b", "-", "1"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.759183368400467*^9, 3.7591833828468533`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"0fe6f4b5-1ab0-4593-978d-d443cc6425e3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"list2", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"4", ",", "0.6", ",", "11", ",", "103"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7591740770597696`*^9, 3.759174112619608*^9}, {
   3.759174340293606*^9, 3.7591743573186626`*^9}, 3.759174428085842*^9, {
   3.7593493050583878`*^9, 3.759349305142358*^9}, {3.759349487769676*^9, 
   3.759349507938465*^9}, {3.7593495445758667`*^9, 3.759349544812096*^9}, {
   3.759349621805376*^9, 3.7593496344230785`*^9}, {3.759350676293739*^9, 
   3.7593506763697195`*^9}, {3.759429365042115*^9, 3.759429368494131*^9}, {
   3.759429575367485*^9, 3.759429644447867*^9}, {3.7594297225021296`*^9, 
   3.7594297226400213`*^9}, {3.7594297946417327`*^9, 3.759429794959544*^9}, {
   3.7594298420455475`*^9, 3.7594298420915165`*^9}, {3.759430367745659*^9, 
   3.7594303678706484`*^9}, {3.759430432096903*^9, 3.759430432206354*^9}, {
   3.759430714217992*^9, 3.759430730515674*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"1527cdb0-c436-47d1-b567-d1918bac5b63"],

Cell[BoxData[
 RowBox[{
  RowBox[{"out2", "=", 
   RowBox[{"Apply", "[", 
    RowBox[{"algo2", ",", "list2"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7591739035375004`*^9, 3.7591739036000094`*^9}, {
   3.7591741160940332`*^9, 3.759174152817483*^9}, 3.759174425349911*^9, {
   3.7591745614132442`*^9, 3.7591745766453204`*^9}, 3.7593493118848257`*^9, 
   3.759429374576671*^9, {3.7594303707790937`*^9, 3.759430399843829*^9}, 
   3.759585196432954*^9, 3.7656569339970746`*^9, 3.826287307311411*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"bfa9664e-4a25-481c-99e1-d811f325120e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Surpluses for Nash and Kalai", "Section",
 CellChangeTimes->{{3.772383665073745*^9, 3.7723837022389593`*^9}, {
  3.8262874940950994`*^9, 
  3.826287501952141*^9}},ExpressionUUID->"061d2d6b-2dd8-4a0e-9d26-\
9c9207f2a711"],

Cell[CellGroupData[{

Cell["Nash", "Item",
 CellChangeTimes->{
  3.7736120951626263`*^9, {3.7736136251379747`*^9, 
   3.7736136287658987`*^9}},ExpressionUUID->"0a0dc1de-c8e2-478b-8b54-\
c9f570a802b1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"qtradedNash", "[", 
   RowBox[{"m_", ",", "theta_", ",", "list_", ",", "out_"}], "]"}], ":=", " ", 
  RowBox[{"q", "/.", " ", 
   RowBox[{
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{"m", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"theta", " ", 
           RowBox[{"uprime", "[", 
            RowBox[{"q", ",", 
             RowBox[{"list", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
           RowBox[{"c", "[", 
            RowBox[{"q", ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "theta"}], ")"}], 
           RowBox[{"cprime", "[", 
            RowBox[{"q", ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}], " ", 
           RowBox[{"u", "[", 
            RowBox[{"q", ",", 
             RowBox[{"list", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}]}], " ", ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"theta", " ", 
           RowBox[{"uprime", "[", 
            RowBox[{"q", ",", 
             RowBox[{"list", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "theta"}], ")"}], 
           RowBox[{"cprime", "[", 
            RowBox[{"q", ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}], " ", ")"}]}]}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"q", ",", "0.01"}], "}"}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7736120809717503`*^9, 3.7736122306761*^9}, {
  3.7736125939241714`*^9, 3.773612620770815*^9}, {3.7736134220542355`*^9, 
  3.7736134849662066`*^9}, {3.7736135291759276`*^9, 3.773613529603682*^9}, {
  3.7736136314443955`*^9, 3.7736136322019405`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"d8bb6491-44cc-43e5-bc14-4b4c99a42720"],

Cell[BoxData[
 RowBox[{
  RowBox[{"NashSurplusBuyer", "[", 
   RowBox[{"m_", ",", "theta_", ",", "list_", ",", "out_"}], "]"}], ":=", " ", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"theta", " ", 
        RowBox[{"uprime", "[", 
         RowBox[{
          RowBox[{"out", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{
             RowBox[{"out", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"list", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", " ", 
           RowBox[{"c", "[", 
            RowBox[{
             RowBox[{"out", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
             RowBox[{"out", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"theta", " ", 
            RowBox[{"uprime", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"list", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", "theta"}], ")"}], 
            RowBox[{"cprime", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
              RowBox[{"out", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}], ")"}]}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"m", " ", "\[GreaterEqual]", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"list", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", 
         RowBox[{"theta", " ", 
          RowBox[{"c", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
            RowBox[{"out", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}]}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"theta", " ", 
        RowBox[{"uprime", "[", 
         RowBox[{
          RowBox[{"qtradedNash", "[", 
           RowBox[{"m", ",", "theta", ",", "list", ",", "out"}], "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{
             RowBox[{"qtradedNash", "[", 
              RowBox[{"m", ",", "theta", ",", "list", ",", "out"}], "]"}], 
             ",", 
             RowBox[{"list", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", 
           RowBox[{"c", "[", 
            RowBox[{
             RowBox[{"qtradedNash", "[", 
              RowBox[{"m", ",", "theta", ",", "list", ",", "out"}], "]"}], 
             ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"theta", " ", 
            RowBox[{"uprime", "[", 
             RowBox[{
              RowBox[{"qtradedNash", "[", 
               RowBox[{"m", ",", "theta", ",", "list", ",", "out"}], "]"}], 
              ",", 
              RowBox[{"list", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", "theta"}], ")"}], 
            RowBox[{"cprime", "[", 
             RowBox[{
              RowBox[{"qtradedNash", "[", 
               RowBox[{"m", ",", "theta", ",", "list", ",", "out"}], "]"}], 
              ",", " ", 
              RowBox[{"out", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}], ")"}]}]}], ",", 
       RowBox[{"m", " ", "<", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"list", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", 
         RowBox[{"theta", " ", 
          RowBox[{"c", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
            RowBox[{"out", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}]}]}], 
      "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.759183203696696*^9, 3.7591832101875687`*^9}, 
   3.7591832564311895`*^9, {3.759183405509489*^9, 3.7591834915530357`*^9}, {
   3.759183530189556*^9, 3.759183719203179*^9}, 3.759183760759267*^9, {
   3.759184418462097*^9, 3.7591844332346315`*^9}, {3.7591844843024282`*^9, 
   3.759184494907154*^9}, {3.7595861352168646`*^9, 3.759586299851221*^9}, {
   3.7736136367913046`*^9, 3.773613651420946*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"924354be-802f-477c-baff-d4c265235c7a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"NashSurplusSeller", "[", 
   RowBox[{"m_", ",", "theta_", ",", "list_", ",", "out_"}], "]"}], ":=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"out", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", " ", 
        RowBox[{"c", "[", 
         RowBox[{
          RowBox[{"out", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
          RowBox[{"out", "[", 
           RowBox[{"[", "6", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "-", 
        RowBox[{"NashSurplusBuyer", "[", 
         RowBox[{"m", ",", "theta", ",", "list", ",", "out"}], "]"}]}], ",", 
       RowBox[{"m", " ", "\[GreaterEqual]", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"list", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", 
         RowBox[{"theta", " ", 
          RowBox[{"c", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
            RowBox[{"out", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"qtradedNash", "[", 
           RowBox[{"m", ",", "theta", ",", "list", ",", "out"}], "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", 
        RowBox[{"c", "[", 
         RowBox[{
          RowBox[{"qtradedNash", "[", 
           RowBox[{"m", ",", "theta", ",", "list", ",", "out"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "6", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "-", 
        RowBox[{"NashSurplusBuyer", "[", 
         RowBox[{"m", ",", "theta", ",", "list", ",", "out"}], "]"}]}], ",", 
       RowBox[{"m", " ", "<", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"list", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", 
         RowBox[{"theta", " ", 
          RowBox[{"c", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}]}]}], "}"}]}], 
    "\[IndentingNewLine]", "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7591858371252995`*^9, 3.7591858483618574`*^9}, {
   3.7591865270467196`*^9, 3.759186549051114*^9}, {3.7595863088313475`*^9, 
   3.7595863160357437`*^9}, {3.7595863782747536`*^9, 3.7595864761409693`*^9}, 
   3.7723844332158465`*^9, {3.7736137118653493`*^9, 3.773613715851078*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"80dd24de-025e-4cb7-b8f4-1de4e13dfddd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Kalai", "Item",
 CellChangeTimes->{{3.7736136705849648`*^9, 
  3.7736136752413006`*^9}},ExpressionUUID->"48bf80ca-9933-4a74-a1f0-\
83d416f2b4ab"],

Cell[BoxData[
 RowBox[{
  RowBox[{"qtradedKalai", "[", 
   RowBox[{"m_", ",", " ", "theta_", ",", " ", "list_", ",", " ", "out_"}], 
   "]"}], " ", ":=", "  ", 
  RowBox[{"q", " ", "/.", " ", 
   RowBox[{"FindRoot", "[", 
    RowBox[{
     RowBox[{"m", " ", "-", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", " ", "-", " ", "theta"}], ")"}], " ", 
       RowBox[{"u", "[", 
        RowBox[{"q", ",", " ", 
         RowBox[{"list", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
         RowBox[{"out", "[", 
          RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], " ", "-", " ", 
      RowBox[{"theta", " ", 
       RowBox[{"c", "[", 
        RowBox[{"q", ",", " ", 
         RowBox[{"out", "[", 
          RowBox[{"[", "6", "]"}], "]"}], ",", " ", 
         RowBox[{"out", "[", 
          RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"q", ",", "0.00000001"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7736136622597594`*^9, 3.773613665006177*^9}, {
   3.838749612340353*^9, 3.8387496246317997`*^9}, 3.838749714442506*^9, {
   3.838749790857249*^9, 3.8387497910076823`*^9}, {3.8387499287351756`*^9, 
   3.838749928809143*^9}, {3.838750076636685*^9, 3.838750077012601*^9}, {
   3.8387501502833157`*^9, 3.8387501508679175`*^9}, {3.8387502260019894`*^9, 
   3.838750237075283*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"608a3e64-8c9a-4da8-bd35-1894205b97db"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8387502599286327`*^9, 3.8387502630163794`*^9}, 
   3.838750391854266*^9},
 CellLabel->"In[12]:=",ExpressionUUID->"181f3859-a515-4167-bb2a-5e0c52689938"],

Cell[BoxData[
 RowBox[{
  RowBox[{"KalaiSurplusBuyer", "[", 
   RowBox[{"m_", ",", "theta_", ",", " ", "list_", ",", "out_"}], "]"}], " ", 
  ":=", 
  RowBox[{"Piecewise", "[", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"qtradedKalai", "[", 
           RowBox[{"m", ",", "theta", ",", " ", "list", ",", " ", "out"}], 
           "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", " ", "m"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"list", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", 
         RowBox[{"theta", " ", 
          RowBox[{"c", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
            RowBox[{"out", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}], ">", "m"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"theta", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"list", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", " ", 
          RowBox[{"c", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], ")"}]}], ",", 
       RowBox[{"m", ">=", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"list", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", 
         RowBox[{"theta", " ", 
          RowBox[{"c", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
            RowBox[{"out", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}]}]}], "}"}]}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.759175319628004*^9, 3.759175347610447*^9}, {
   3.759175685780758*^9, 3.7591759594589844`*^9}, {3.7591772636485243`*^9, 
   3.7591772902373276`*^9}, {3.75917737421733*^9, 3.7591774137444735`*^9}, 
   3.759177500508041*^9, {3.7591823247592244`*^9, 3.759182326204537*^9}, {
   3.7591827970289135`*^9, 3.7591828001988688`*^9}, {3.7595859027876186`*^9, 
   3.7595860059849443`*^9}, {3.77361367976574*^9, 3.7736136802394643`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"da983258-e06b-4945-9ca0-6c6f867f7bef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"KalaiSurplusSeller", "[", 
   RowBox[{"m_", ",", "theta_", ",", " ", "list_", ",", "out_"}], "]"}], ":=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"out", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", " ", 
        RowBox[{"c", "[", 
         RowBox[{
          RowBox[{"out", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
          RowBox[{"out", "[", 
           RowBox[{"[", "6", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "-", 
        RowBox[{"KalaiSurplusBuyer", "[", 
         RowBox[{"m", ",", "theta", ",", "list", ",", "out"}], "]"}]}], ",", 
       RowBox[{"m", " ", "\[GreaterEqual]", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"list", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", 
         RowBox[{"theta", " ", 
          RowBox[{"c", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
            RowBox[{"out", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"qtradedKalai", "[", 
           RowBox[{"m", ",", "theta", ",", "list", ",", "out"}], "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", 
        RowBox[{"c", "[", 
         RowBox[{
          RowBox[{"qtradedKalai", "[", 
           RowBox[{"m", ",", "theta", ",", "list", ",", "out"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "6", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "-", 
        RowBox[{"KalaiSurplusBuyer", "[", 
         RowBox[{"m", ",", "theta", ",", "list", ",", "out"}], "]"}]}], ",", 
       RowBox[{"m", " ", "<", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"list", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", 
         RowBox[{"theta", " ", 
          RowBox[{"c", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
            RowBox[{"out", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}]}]}], "}"}]}], 
    "\[IndentingNewLine]", "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.759185533416277*^9, 3.7591855593996005`*^9}, {
   3.7591855904786873`*^9, 3.7591856913272247`*^9}, {3.75958601614702*^9, 
   3.759586122323367*^9}, 3.772384451998023*^9, {3.7736137417182827`*^9, 
   3.7736137450833254`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"d5d2fce3-e192-43f6-9cd3-6d8095b57222"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Pareto frontiers and allocations", "Section",
 CellChangeTimes->{{3.77238370567196*^9, 3.77238371652225*^9}, {
  3.826287522374709*^9, 
  3.826287526677935*^9}},ExpressionUUID->"42ba752c-3203-4721-9fdd-\
a6595a4cada6"],

Cell[CellGroupData[{

Cell["Create marker styles for allocations", "Item",
 CellChangeTimes->{{3.842451203154355*^9, 
  3.8424512157647886`*^9}},ExpressionUUID->"b1d83cc2-9230-4e23-8d34-\
5e52c6ba3e6e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"em", "[", 
    RowBox[{"name_String", ",", 
     RowBox[{"size_", ":", "9"}]}], "]"}], ":=", 
   RowBox[{
    RowBox[{"ResourceFunction", "[", "\"\<PolygonMarker\>\"", "]"}], "[", 
    RowBox[{"name", ",", 
     RowBox[{"Offset", "[", "size", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Dynamic", "@", 
        RowBox[{"EdgeForm", "@", 
         RowBox[{"Directive", "[", 
          RowBox[{
           RowBox[{"CurrentValue", "[", "\"\<Color\>\"", "]"}], ",", 
           RowBox[{"JoinForm", "[", "\"\<Round\>\"", "]"}], ",", 
           RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
           RowBox[{"Opacity", "[", "1", "]"}]}], "]"}]}]}], ",", 
       RowBox[{"FaceForm", "[", 
        RowBox[{"{", 
         RowBox[{"White", ",", 
          RowBox[{"Opacity", "[", "0", "]"}]}], "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"ImagePadding", "->", "6"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8424506740968056`*^9, 3.8424506740978184`*^9}, {
  3.8424509441567326`*^9, 3.8424509642715764`*^9}, {3.8424511649979324`*^9, 
  3.842451183541681*^9}, {3.8424514092666297`*^9, 3.842451438194929*^9}},
 CellLabel->
  "In[142]:=",ExpressionUUID->"e1b4535c-8df8-4837-9274-d8ed1038eac9"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Draw the Pareto frontiers", "Item",
 CellChangeTimes->{{3.7733186539189873`*^9, 
  3.773318664458065*^9}},ExpressionUUID->"d25f759a-62ae-47f1-ba9d-\
51cb83d93d0d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cinv", "[", 
    RowBox[{"q_", ",", "b_", ",", "B_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"q", "/", "B"}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"1", "/", "b"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7596652701318235`*^9, 3.7596653327938623`*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"be6844db-20ce-4558-98f9-bb877e416cf0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"frontier", "[", 
   RowBox[{"us_", ",", "m_", ",", "list_", ",", "out_"}], "]"}], ":=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"out", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", 
        RowBox[{"c", "[", 
         RowBox[{
          RowBox[{"out", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "6", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "-", " ", "us"}], ",", 
       RowBox[{"us", " ", "\[LessEqual]", 
        RowBox[{"m", "-", 
         RowBox[{"c", "[", 
          RowBox[{
           RowBox[{"out", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"out", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", 
           RowBox[{"out", "[", 
            RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}]}], " ", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "m"}], "+", 
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"cinv", "[", 
           RowBox[{
            RowBox[{"m", "-", "us"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], ",", " ", 
       RowBox[{"us", ">", 
        RowBox[{"m", "-", 
         RowBox[{"c", "[", 
          RowBox[{
           RowBox[{"out", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"out", "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", 
           RowBox[{"out", "[", 
            RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}]}], "}"}]}], "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.758124580988291*^9, 3.7581246322731447`*^9}, {
   3.758124667317512*^9, 3.7581247044100986`*^9}, 3.7581247727995553`*^9, {
   3.7596650904803414`*^9, 3.7596651889683523`*^9}, {3.759665371909953*^9, 
   3.7596654436393785`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"1e5fdfd1-2172-4102-a22b-7042560c965e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"frontier30", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"frontier", "[", 
      RowBox[{"us", ",", "30", ",", "list2", ",", "out2"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"us", ",", "0", ",", "200"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "110"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "110"}], "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{3.826287569071459*^9},
 CellLabel->"In[17]:=",ExpressionUUID->"7b623722-69a9-4316-ab69-e86118f22f98"],

Cell[BoxData[
 RowBox[{
  RowBox[{"frontier60", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"frontier", "[", 
      RowBox[{"us", ",", "60", ",", "list2", ",", "out2"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"us", ",", "0", ",", "200"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "110"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "110"}], "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.773318001210061*^9, 3.7733180511075954`*^9}, {
  3.7733183265464425`*^9, 3.7733183615198326`*^9}, {3.773318499545377*^9, 
  3.773318518121152*^9}, {3.773318578353453*^9, 3.7733185957438564`*^9}, {
  3.7741059490166826`*^9, 3.774105974527072*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"dcac579a-a82a-4188-92ae-3e77380e1657"],

Cell[BoxData[
 RowBox[{
  RowBox[{"frontier315", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"frontier", "[", 
      RowBox[{"us", ",", "315", ",", "list2", ",", "out2"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"us", ",", "0", ",", "200"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "110"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "110"}], "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7733180725814342`*^9, 3.7733180923410177`*^9}, 
   3.773318145461786*^9, {3.7733183482882075`*^9, 3.773318366821883*^9}, {
   3.773318422688545*^9, 3.7733184908952894`*^9}, {3.7733186050236316`*^9, 
   3.7733186165505285`*^9}, {3.7741059548213797`*^9, 3.774105983511948*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"fe7dd363-4dda-4a95-98bf-6ff4c0655888"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Pick theta", "Item",
 CellChangeTimes->{{3.8262876622363772`*^9, 3.8262876666963987`*^9}, {
  3.82628795652785*^9, 
  3.8262879575105*^9}},ExpressionUUID->"eb402fb2-8212-4b0d-a59c-8995dd525a87"],

Cell[BoxData[
 RowBox[{
  RowBox[{"theta", "=", "0.5"}], ";"}]], "Input",
 CellChangeTimes->{{3.8262876699774446`*^9, 3.826287674078882*^9}, 
   3.826287953815612*^9, {3.826288323801675*^9, 3.826288350015546*^9}, 
   3.8262883805435486`*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"155fe7d6-2085-4875-a5cf-cff1a7dc2761"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Record the pairs of surpluses for Nash and Kalai for the three frontiers\
\>", "Item",
 CellChangeTimes->{{3.773318668938597*^9, 3.773318711120598*^9}, {
  3.8262875812544575`*^9, 
  3.826287581726415*^9}},ExpressionUUID->"cb7778a3-366b-491c-a7b5-\
ca82dd24eaa9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"alloc30Nash", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NashSurplusSeller", "[", 
       RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}], ",", 
      " ", 
      RowBox[{"NashSurplusBuyer", "[", 
       RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}], 
     "}"}]}], ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.759187198899643*^9, 3.759187209365341*^9}, 
   3.759193681748773*^9, {3.773318810467305*^9, 3.7733188856155863`*^9}, {
   3.77331897268437*^9, 3.773319012074295*^9}, 3.7741059923518543`*^9, {
   3.7759296586388865`*^9, 3.7759296665553455`*^9}, {3.8262871626555977`*^9, 
   3.826287178400468*^9}, {3.826287690655467*^9, 3.8262876913114676`*^9}, 
   3.8262877279054556`*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"0d68b5c8-da0b-4eb0-a080-07f7e070fb8c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"alloc30Kalai", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"KalaiSurplusSeller", "[", 
       RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}], ",", 
      " ", 
      RowBox[{"KalaiSurplusBuyer", "[", 
       RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}], 
     "}"}]}], ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.773613903646606*^9, 3.7736139282525234`*^9}, 
   3.774105995329178*^9, {3.7759296695186763`*^9, 3.775929676027943*^9}, {
   3.8262871672243557`*^9, 3.8262871806314106`*^9}, 3.826287697664456*^9, 
   3.826287730713269*^9},
 CellLabel->"In[22]:=",ExpressionUUID->"47af3a69-b08b-4791-abbf-5cbf761dfa1f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"alloc60Nash", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NashSurplusSeller", "[", 
       RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}], ",", 
      " ", 
      RowBox[{"NashSurplusBuyer", "[", 
       RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}], 
     "}"}]}], ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.759187198899643*^9, 3.759187209365341*^9}, 
   3.759193681748773*^9, {3.773318810467305*^9, 3.7733188856155863`*^9}, {
   3.77331897268437*^9, 3.773319012074295*^9}, 3.7741059923518543`*^9, 
   3.8262868933513823`*^9, 3.826287702713035*^9, {3.826287734147859*^9, 
   3.826287734449194*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"2a7353af-5aa0-4111-9812-a88ca6ca5178"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"alloc60Kalai", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"KalaiSurplusSeller", "[", 
       RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}], ",", 
      " ", 
      RowBox[{"KalaiSurplusBuyer", "[", 
       RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}], 
     "}"}]}], ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.773613903646606*^9, 3.7736139282525234`*^9}, 
   3.774105995329178*^9, 3.826286896663382*^9, {3.826287707610806*^9, 
   3.8262877370894084`*^9}, 3.838749658548501*^9, 3.8387499923741217`*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"7ed502f7-043f-40a9-8c49-6851dcd41cad"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"alloc315Nash", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NashSurplusSeller", "[", 
       RowBox[{"315", ",", "theta", ",", "list2", ",", "out2"}], "]"}], ",", 
      " ", 
      RowBox[{"NashSurplusBuyer", "[", 
       RowBox[{"315", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}], 
     "}"}]}], ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.773613957374856*^9, 3.7736139670183125`*^9}, 
   3.774105998000633*^9, 3.8262869112472596`*^9, {3.8262877142970943`*^9, 
   3.826287740081236*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"c5532257-2018-4a1f-bf2e-a3917001d19a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"alloc315Kalai", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"KalaiSurplusSeller", "[", 
      RowBox[{"315", ",", "theta", ",", "list2", ",", "out2"}], "]"}], ",", 
     " ", 
     RowBox[{"KalaiSurplusBuyer", "[", 
      RowBox[{"315", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.773613975654372*^9, 3.773613986689047*^9}, 
   3.774106001263757*^9, 3.826286919599327*^9, {3.8262877174393587`*^9, 
   3.8262877438887887`*^9}},
 CellLabel->
  "In[226]:=",ExpressionUUID->"dca552a8-1fe3-43ed-81d3-67cdd0274458"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot30Nash", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc30Nash", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
     RowBox[{"PlotMarkers", "->", 
      RowBox[{"em", "/@", 
       RowBox[{"{", "\"\<Circle\>\"", "}"}]}]}], ",", 
     RowBox[{"PlotLegends", "->", 
      RowBox[{"PointLegend", "[", 
       RowBox[{
        RowBox[{"{", "\"\<Nash predictions\>\"", "}"}], ",", 
        RowBox[{"LegendMarkerSize", "->", 
         RowBox[{"{", 
          RowBox[{"45", ",", "30"}], "}"}]}]}], "]"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.773319197455701*^9, 3.773319201011505*^9}, {
   3.7733192336448755`*^9, 3.773319275482153*^9}, 3.7733193223986883`*^9, {
   3.774106012138553*^9, 3.7741060124683404`*^9}, {3.7741060553588*^9, 
   3.774106086927697*^9}, {3.7759297080475492`*^9, 3.775929711487607*^9}, {
   3.842449616651961*^9, 3.842449631226793*^9}, {3.8424497526333747`*^9, 
   3.8424497797040377`*^9}, {3.842449890286541*^9, 3.8424499086951966`*^9}, {
   3.842449975475729*^9, 3.8424500574933033`*^9}, {3.842450166795534*^9, 
   3.8424502041391277`*^9}, {3.8424502442529526`*^9, 3.842450245249482*^9}, {
   3.842451069952232*^9, 3.8424510739031363`*^9}, {3.8424515089784546`*^9, 
   3.842451510105448*^9}, {3.8424515535049067`*^9, 3.842451635242938*^9}, {
   3.8424517026073837`*^9, 3.842451705344941*^9}, {3.8424519035004992`*^9, 
   3.8424519972812557`*^9}, {3.842452120233626*^9, 3.8424521222405415`*^9}},
 CellLabel->
  "In[227]:=",ExpressionUUID->"885e6dfe-e1e4-4506-997a-360bed3fa3df"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot30Kalai", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc30Kalai", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
     RowBox[{"PlotMarkers", "->", 
      RowBox[{"em", "/@", 
       RowBox[{"{", "\"\<Triangle\>\"", "}"}]}]}], ",", 
     RowBox[{"PlotLegends", "->", 
      RowBox[{"PointLegend", "[", 
       RowBox[{
        RowBox[{"{", "\"\<Kalai predictions\>\"", "}"}], ",", 
        RowBox[{"LegendMarkerSize", "->", 
         RowBox[{"{", 
          RowBox[{"45", ",", "30"}], "}"}]}]}], "]"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7736139383347235`*^9, 3.773613949525326*^9}, {
   3.774106018174066*^9, 3.77410601846891*^9}, {3.7741060788433495`*^9, 
   3.774106100380993*^9}, {3.7759297159350557`*^9, 3.7759297186534967`*^9}, {
   3.8424503088898025`*^9, 3.8424503555958586`*^9}, {3.8424505934615464`*^9, 
   3.8424505969959803`*^9}, 3.8424506869322863`*^9, {3.8424507527393584`*^9, 
   3.8424508595527973`*^9}, {3.8424509914972763`*^9, 3.842451049932468*^9}, {
   3.8424513091721354`*^9, 3.8424513099527493`*^9}, {3.8424516218080626`*^9, 
   3.842451637874806*^9}, {3.842451941940056*^9, 3.8424519996587496`*^9}, 
   3.8424521284097576`*^9},
 CellLabel->
  "In[228]:=",ExpressionUUID->"44e2c117-ca33-45e2-8dc1-23272efe4492"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot60Nash", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc60Nash", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
     RowBox[{"PlotMarkers", "->", 
      RowBox[{"em", "/@", 
       RowBox[{"{", "\"\<Circle\>\"", "}"}]}]}], ",", 
     RowBox[{"PlotLegends", "->", 
      RowBox[{"PointLegend", "[", 
       RowBox[{"Automatic", ",", 
        RowBox[{"LegendMarkerSize", "->", 
         RowBox[{"{", 
          RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.773319197455701*^9, 3.773319201011505*^9}, {
   3.7733192336448755`*^9, 3.773319275482153*^9}, 3.7733193223986883`*^9, {
   3.774106012138553*^9, 3.7741060124683404`*^9}, {3.7741060553588*^9, 
   3.774106086927697*^9}, {3.8424502646823645`*^9, 3.842450266937336*^9}, 
   3.8424512354700527`*^9, 3.842452130786815*^9},
 CellLabel->
  "In[229]:=",ExpressionUUID->"9495cc4a-7b96-4196-b51a-8dfb35bf0835"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot60Kalai", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc60Kalai", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
     RowBox[{"PlotMarkers", "->", 
      RowBox[{"em", "/@", 
       RowBox[{"{", "\"\<Triangle\>\"", "}"}]}]}], ",", 
     RowBox[{"PlotLegends", "->", 
      RowBox[{"PointLegend", "[", 
       RowBox[{"Automatic", ",", 
        RowBox[{"LegendMarkerSize", "->", 
         RowBox[{"{", 
          RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7736139383347235`*^9, 3.773613949525326*^9}, {
   3.774106018174066*^9, 3.77410601846891*^9}, {3.7741060788433495`*^9, 
   3.774106100380993*^9}, {3.842451254261757*^9, 3.8424512693816633`*^9}, {
   3.8424513128523045`*^9, 3.842451315127948*^9}, 3.8424521328737082`*^9},
 CellLabel->
  "In[230]:=",ExpressionUUID->"a3113996-f25a-4630-8310-c23fd6d7407e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot315Nash", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc315Nash", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
     RowBox[{"PlotMarkers", "->", 
      RowBox[{"em", "/@", 
       RowBox[{"{", "\"\<Circle\>\"", "}"}]}]}], ",", 
     RowBox[{"PlotLegends", "->", 
      RowBox[{"PointLegend", "[", 
       RowBox[{"Automatic", ",", 
        RowBox[{"LegendMarkerSize", "->", 
         RowBox[{"{", 
          RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7736140060489693`*^9, 3.7736140177483015`*^9}, {
   3.7741060226915092`*^9, 3.7741060229963045`*^9}, {3.774106104827447*^9, 
   3.7741061052262087`*^9}, {3.842450272682268*^9, 3.842450275450253*^9}, {
   3.8424512407089963`*^9, 3.842451243963954*^9}, 3.842452136258765*^9},
 CellLabel->
  "In[231]:=",ExpressionUUID->"a7437e41-ba6c-4dfc-9a9c-bc2b25aa1ea1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot315Kalai", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc315Kalai", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
     RowBox[{"PlotMarkers", "->", 
      RowBox[{"em", "/@", 
       RowBox[{"{", "\"\<Triangle\>\"", "}"}]}]}], ",", 
     RowBox[{"PlotLegends", "->", 
      RowBox[{"PointLegend", "[", 
       RowBox[{"Automatic", ",", 
        RowBox[{"LegendMarkerSize", "->", 
         RowBox[{"{", 
          RowBox[{"40", ",", "25"}], "}"}]}]}], "]"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7736140248312273`*^9, 3.773614034192878*^9}, {
   3.7741060270509825`*^9, 3.774106027339816*^9}, 3.7741061110838842`*^9, {
   3.842451257188811*^9, 3.8424512725799675`*^9}, {3.842451318284047*^9, 
   3.8424513226538553`*^9}, 3.8424521380747437`*^9},
 CellLabel->
  "In[232]:=",ExpressionUUID->"38e1d752-f7e1-4a3c-ad71-1d9d2d91999f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Record the paths for Nash and Kalai ", "Item",
 CellChangeTimes->{{3.773318668938597*^9, 3.773318711120598*^9}, {
  3.8262875812544575`*^9, 3.826287581726415*^9}, {3.826287789174467*^9, 
  3.826287794526821*^9}},ExpressionUUID->"1737adf9-ef6c-49fe-8c6e-\
a4a368634139"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listNashBuyer", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"NashSurplusBuyer", "[", 
      RowBox[{"m", ",", " ", "theta", ",", "list2", ",", "out2"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "10.8", ",", "315", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.759192441013389*^9, 3.759192444885434*^9}, {
   3.759192561767626*^9, 3.7591925618512926`*^9}, {3.7591927710140696`*^9, 
   3.7591927725807643`*^9}, 3.759193694107366*^9, {3.759193935336893*^9, 
   3.759193938024187*^9}, {3.7595868287502174`*^9, 3.7595868311401496`*^9}, {
   3.759663558920298*^9, 3.7596635589984145`*^9}, {3.759664528475685*^9, 
   3.759664528538124*^9}, {3.759664732336237*^9, 3.759664732887087*^9}, {
   3.7741062069408135`*^9, 3.774106239206334*^9}, {3.774106497501645*^9, 
   3.7741064977924724`*^9}, {3.7741066927298484`*^9, 3.774106693742239*^9}, {
   3.774106753729912*^9, 3.7741067538588142`*^9}, {3.774106784245412*^9, 
   3.7741068036863008`*^9}, {3.77410684316669*^9, 3.774106845133539*^9}, 
   3.8262869535005107`*^9, {3.826287819578497*^9, 3.826287819935212*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"baafc0cf-1a1f-4652-95ac-290f5cce422d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listNashBuyerSmall", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"NashSurplusBuyer", "[", 
      RowBox[{"m", ",", " ", "theta", ",", "list2", ",", "out2"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.77410656606936*^9, 3.7741065809498463`*^9}, 
   3.8262869583113885`*^9, 3.826287828321601*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"6aa13152-ad00-4586-9bcb-e9d6058095bc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listNashSeller", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"NashSurplusSeller", "[", 
      RowBox[{"m", ",", "theta", ",", "list2", ",", "out2"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "10.8", ",", "315", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.758126740968025*^9, 3.7581267521750746`*^9}, {
   3.7581268925097923`*^9, 3.75812689322265*^9}, {3.759186878492386*^9, 
   3.759186888950884*^9}, {3.7591869217599554`*^9, 3.759186957794324*^9}, {
   3.759187004059346*^9, 3.7591870224617004`*^9}, {3.7591870768532906`*^9, 
   3.7591870770972233`*^9}, {3.759192357119851*^9, 3.759192372617839*^9}, {
   3.759192564629303*^9, 3.7591925646761446`*^9}, {3.7591927752367153`*^9, 
   3.7591927766447887`*^9}, 3.7591937014888*^9, {3.7591939426426635`*^9, 
   3.7591939451975384`*^9}, {3.7595868340402136`*^9, 
   3.7595868385020247`*^9}, {3.7596635628125677`*^9, 3.759663563453128*^9}, {
   3.759664531975438*^9, 3.759664532069125*^9}, {3.759664734918116*^9, 
   3.759664735402458*^9}, {3.7741062341992135`*^9, 3.774106247484615*^9}, {
   3.774106502411826*^9, 3.7741065026856923`*^9}, 3.7741067001835575`*^9, {
   3.774106760988733*^9, 3.774106809181154*^9}, {3.7741068481827855`*^9, 
   3.7741068495520115`*^9}, 3.826286961439339*^9, 3.8262878326252413`*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"da490ac6-5c61-4cea-838d-2b4616409959"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listNashSellerSmall", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"NashSurplusSeller", "[", 
      RowBox[{"m", ",", "theta", ",", "list2", ",", "out2"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.774106589880723*^9, 3.7741066157439404`*^9}, 
   3.826286963671389*^9, 3.8262878359219494`*^9},
 CellLabel->"In[36]:=",ExpressionUUID->"6ff6a929-b79b-48eb-894e-a0d21869ef8a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listKalaiBuyer", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"KalaiSurplusBuyer", "[", 
      RowBox[{"m", ",", " ", "theta", ",", "list2", ",", "out2"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "0.5", ",", "315", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.759186893300825*^9, 3.7591869250902014`*^9}, {
   3.759186968893379*^9, 3.7591869740213847`*^9}, {3.75918700829907*^9, 
   3.7591870243873873`*^9}, {3.759187083806531*^9, 3.75918708398307*^9}, {
   3.7591923658076954`*^9, 3.759192375565519*^9}, {3.759192567088185*^9, 
   3.7591925671505947`*^9}, {3.7591927792935534`*^9, 3.7591927807373705`*^9}, 
   3.7591937042612734`*^9, {3.759193948595559*^9, 3.7591939516126537`*^9}, {
   3.759586841958282*^9, 3.7595868458239393`*^9}, {3.7596635664217553`*^9, 
   3.7596635674857807`*^9}, {3.7596645355530105`*^9, 
   3.7596645355998774`*^9}, {3.7596647372930307`*^9, 
   3.7596647377929926`*^9}, {3.774106251855089*^9, 3.7741062590849705`*^9}, {
   3.774106505305174*^9, 3.774106505615992*^9}, 3.8262869685276375`*^9, 
   3.826287841464901*^9, 3.8387501651871285`*^9, {3.8387504067349777`*^9, 
   3.8387504104079103`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"f5cd05ba-104c-4f00-b96e-dec451d65503"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listKalaiSeller", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"KalaiSurplusSeller", "[", 
      RowBox[{"m", ",", " ", "theta", ",", "list2", ",", "out2"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "0.5", ",", "315", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.759186902347582*^9, 3.75918692812868*^9}, {
   3.7591869789067593`*^9, 3.7591870458767014`*^9}, {3.7591870868239174`*^9, 
   3.759187086995782*^9}, {3.759192368642576*^9, 3.7591923788294077`*^9}, {
   3.7591925695960584`*^9, 3.7591925696897955`*^9}, {3.7591927832889433`*^9, 
   3.7591927848083277`*^9}, 3.7591937067728615`*^9, {3.7591939569550056`*^9, 
   3.759193959841025*^9}, {3.7595868485901995`*^9, 3.7595868504123507`*^9}, {
   3.759663569891878*^9, 3.7596635709386663`*^9}, {3.759664538802787*^9, 
   3.759664538865349*^9}, {3.759664739558407*^9, 3.7596647400271287`*^9}, {
   3.774106263567389*^9, 3.7741062706003456`*^9}, {3.7741065092399144`*^9, 
   3.7741065095997105`*^9}, 3.8262869725113926`*^9, 3.82628784867249*^9, {
   3.8387501273480854`*^9, 3.83875013604358*^9}, {3.8387504144467726`*^9, 
   3.838750414678836*^9}, {3.838750579515725*^9, 3.8387505832037244`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"7278b8d8-0945-4e70-8336-4456d7a9d633"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listKalaiBuyerZero", "=", 
   RowBox[{"{", "0", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.838750417831709*^9, 3.8387504283498983`*^9}, {
  3.8387505862996664`*^9, 3.838750587482644*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"471c1c01-4f35-4410-baca-cd60a3b3ba06"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listKalaiSellerZero", "=", 
   RowBox[{"{", "0", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8387504301845646`*^9, 3.8387504375494266`*^9}, {
  3.8387505906516066`*^9, 3.8387505915945873`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"bf72b28e-1f87-431f-bca0-072c1a54eb2f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pairsNash", " ", "=", " ", 
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{"listNashSeller", ",", "listNashBuyer"}], "}"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7581268472817364`*^9, 3.758126861075143*^9}, {
   3.759187096647084*^9, 3.7591871161578903`*^9}, {3.75918718879906*^9, 
   3.7591871892490644`*^9}, {3.759192381752122*^9, 3.759192391273445*^9}, 
   3.7591937116291513`*^9, {3.7591939638788276`*^9, 3.7591939703581595`*^9}, {
   3.774106276551945*^9, 3.7741062841855726`*^9}, 3.7741064850128136`*^9},
 CellLabel->"In[41]:=",ExpressionUUID->"efee8015-335c-4136-a696-b28aa24c3f82"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pairsNashSmall", " ", "=", " ", 
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{"listNashSellerSmall", ",", "listNashBuyerSmall"}], "}"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7741066254313927`*^9, 3.7741066471099453`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"c196fa21-01b3-4e5b-8c7a-698ad0a106fb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pairsKalai", " ", "=", " ", 
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{"listKalaiSeller", ",", "listKalaiBuyer"}], "}"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.759187198899643*^9, 3.759187209365341*^9}, {
   3.759192385177971*^9, 3.759192396851661*^9}, 3.759193719310244*^9, {
   3.759193977900775*^9, 3.7591939831076937`*^9}, {3.7741062887369595`*^9, 
   3.7741062940479455`*^9}, 3.7741064871965384`*^9},
 CellLabel->"In[43]:=",ExpressionUUID->"5a506df9-6df7-46b4-97db-7e62ec6126cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pairsKalaiZero", "=", 
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{"listKalaiSellerZero", ",", "listKalaiBuyerZero"}], "}"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.838750448071207*^9, 3.8387504924044085`*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"d30ec14b-bf78-4cac-aafc-2edb5312aff2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"test", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"pairsNashSmall", ",", "pairsNash"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.774107243503384*^9, 3.7741072720730305`*^9}, {
   3.774107824535474*^9, 3.774107829257775*^9}, 3.8262870033928056`*^9, {
   3.838750557092175*^9, 3.838750561996144*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"8674dfd0-e480-4a42-9d9d-24db424e214e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"test2", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"pairsKalaiZero", ",", "pairsKalai"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.838750479999636*^9, 3.838750513276026*^9}, {
  3.838750597691457*^9, 3.8387506003314114`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"99cb88fb-52c3-4244-a923-72c65f767416"],

Cell[BoxData[
 RowBox[{
  RowBox[{"allocationsNash", " ", "=", " ", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"test", ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dotted", ",", " ", 
          RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dotted", ",", " ", 
          RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}], ",", 
     " ", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", "\"\<Nash\>\"", "}"}]}], ",", " ", 
     RowBox[{"PlotMarkers", "\[Rule]", "None"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.758126868660992*^9, 3.7581268730554533`*^9}, {
   3.758126919954832*^9, 3.7581269252523465`*^9}, {3.758127145592914*^9, 
   3.758127150373257*^9}, {3.7591871206325903`*^9, 3.7591871208135834`*^9}, {
   3.759187215314787*^9, 3.759187221174838*^9}, {3.759187304743941*^9, 
   3.7591873064433765`*^9}, {3.7591924612220316`*^9, 
   3.7591924822254715`*^9}, {3.7591936033921857`*^9, 3.75919361956566*^9}, {
   3.7591939877721224`*^9, 3.7591939907114296`*^9}, {3.7741063096670003`*^9, 
   3.7741063480490017`*^9}, {3.7741066537571692`*^9, 3.774106664428057*^9}, {
   3.774106729609702*^9, 3.7741067377980146`*^9}, {3.774106891090243*^9, 
   3.7741070025963793`*^9}, {3.774107064153125*^9, 3.7741070649096622`*^9}, {
   3.7741074241066217`*^9, 3.774107547002823*^9}, {3.774107669449705*^9, 
   3.7741077429916067`*^9}, {3.7741078785995383`*^9, 3.774107879009282*^9}, 
   3.826286874568381*^9},
 CellLabel->"In[47]:=",ExpressionUUID->"376e642e-f3b9-4d41-86e8-b01bed26e4ec"],

Cell[BoxData[
 RowBox[{
  RowBox[{"allocationsKalai", " ", "=", " ", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"test2", ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}]}], ",", " ", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", "\"\<Kalai\>\"", "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7591872383632774`*^9, 3.759187298985626*^9}, {
  3.75919246382686*^9, 3.7591924886571083`*^9}, {3.7591930177208776`*^9, 
  3.7591930488433275`*^9}, {3.7591930886764803`*^9, 3.759193092267074*^9}, {
  3.7591939947072535`*^9, 3.7591939972745457`*^9}, {3.774106355268879*^9, 
  3.77410637613091*^9}, {3.838750520636901*^9, 3.8387505213718967`*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"287004de-8550-4bd4-8681-c96049db802e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Graph", "Item",
 CellChangeTimes->{{3.8262879406824417`*^9, 
  3.826287944773785*^9}},ExpressionUUID->"1f8df648-734b-425c-a19f-\
7ca72d5d66c7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"Plot", ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7741081806631784`*^9, 3.774108180715165*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"718d42bc-ab4f-4f20-a785-5061cd83d72d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p1", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
   "frontier30", ",", "frontier60", ",", " ", "frontier315", ",", 
    "allocationsNash", ",", " ", "allocationsKalai", ",", "plot30Nash", ",", 
    " ", "plot30Kalai", ",", "plot60Nash", ",", "plot60Kalai", ",", " ", 
    "plot315Nash", ",", " ", "plot315Kalai", ",", " ", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<Seller's surplus\>\"", ",", "\"\<Buyer's surplus\>\""}], 
      "}"}]}], ",", " ", 
    RowBox[{"PlotLabel", "\[Rule]", "\"\<Allocations as m increases\>\""}], 
    ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", " ", 
    RowBox[{"AspectRatio", "\[Rule]", " ", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.775929607725087*^9, 3.77592960914927*^9}, {
  3.775929724547117*^9, 3.7759297336129184`*^9}, {3.840532477939612*^9, 
  3.8405324783556075`*^9}, {3.8424518807977843`*^9, 3.8424518964760265`*^9}},
 CellLabel->
  "In[265]:=",ExpressionUUID->"12ebc369-a491-4eea-9b1e-08b9ac21cbd3"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          LineBox[CompressedData["
1:eJwtkX80FAYAxy87dGGtkh/RlRF3lpxznXM/dt84nDuOY5ySN/PzlN+rRsKV
JJdOyao1TMuvq+aI6QdJpqjQr1vjWY9Wz7ShlGJKN3tv3/e+7/O+7/Pn1yYq
JShWj0Ag+C30P35aPH+mgnz/84MbzLYWJMlwcTF1TZJcw5+f8/qHHC/D9Yz6
Kor8Gl+x1FLVHCnDTVpavIH8Ll+UfPvEYLAMPUUPhG/ih/kDne1zS9gy3GLn
XR6Pf8HPjLRKJxnIcPvoUNpYvI5f9Fk0W14WCtFVQ8lo/FKcGEj/jtsZgj4T
JokYsRYzZa98E7uC4VHs1VEbQMHEzJ6/2+ulUIia1Q+SKfhYNplHqpGiXd/2
2PxhCoZMg3ICyqVg7yHEBfdS8MipN6fvkBSuCa1GOiEVRddY00fkUth5ushC
PRyhM84562wjhcGM9SRx43q4nPE9fFIViFjnORMXExriNswWpDRI4DdUUG1B
puHgUbWp4pQEjIKVPIIzDc1dEbsU+yUgDtMS7wbSYB3s5R4YJsGPqvjbSaU0
7LOspFJ0/hie0B44a+UC69zhhu99/bH5vEZn60iH94BO7+A9MRDGO2HEoUO0
zavb75IYFOKdDa/FdLws18t8/4MYs+GjEZ1JdOyryx6xShHjuNHqtshGOtqb
PN1CjMV4uE2ZUc5yhbEwwjHPQwR/auyUmQ8DQYuCetaVCTF3aGfr41AGMhJz
Pc7vE6JuMj+/Ko6BFoX+IcsEIYjNNZb0AwwQsi5n1W4U4srnY5v8bzDQca9F
XNjnA/svtpfkeW7E7vzdK+xmvUHITXN9yWeCpe+zO5bphfone+dbApgYfdRw
zNHSC+GCku7sL5nQjj8OufNOgBZSU7hRLhMZWdLJ8g4BEkun8+zbmfBuelGc
KRRgUP2NdivXDR5uyo9KAj1xQZu98xaLhRrpuYhu3ibU5cdE/eHLQpDSa8eY
+SZUMMUB77awMGGVfLNrClCetKA6ZbNwJVr0q7oKiN7a9PuR6yw0lo3yPhgA
ps/GPMNE7hB8VUf/LYOHJd/epaWFu8NbfuHJJ7Y8ELxbVisT3WG2anG/speL
8dq8mVaVO/ZMmTg4rebixnbyuTUP3fGeWv3hdDMbu14HL/8znA3y0Fp7z4tu
SKxi63SJbLR9yGoZD3JDVIjNuEUOG6WStL3pE0xILk7eEFWycaDmyY5JMhMO
WYWZ9c/YqNeSrFXpDJDXp8Z1v2Fj+pfYFD0iA6aPQ4NHDDi41FS9/f0xVxD4
dk7LqRxMD6VW+GroGNC7NrIziYMgB97aI/dp6G+q7lPlcCBgGmZnh9DQFVN0
pbaYg7ZO8/t99c5ovLm5dLCRg55l61Sn1U5QKqd9eG85CDO3iDWLo0LBGWKE
GnIxkNfgO+BDwa7x6zYpFlwQIzf3/WTrgChJ8btKNhezz/+KoffYgbPcUUPM
5YJSRavvSVuD/kVbbvUVc3FSYLtkZa81IqcKnx6v5KJBK6KmrliF/feem1M7
uUCymM+JNoVZhyX91YMFT6Lut5Avg1rj69f6lAvFYsOEkmpj9KvUCn99HlIr
eOKvuTp+ZM7gKTMzHkZiBFf9Eqb4r5JIPw/bL/zWVqjV9HTzS99qVqx3XNj/
51/+PAT1
           "]]}, 
         Annotation[#, "Charting`Private`Tag$7352#1"]& ]}}, {}}, {{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          LineBox[CompressedData["
1:eJwtiwtQ0wUAxtcOcHUjnolUCrKEAQlbymMy/H8M9vqvzQccbiQyUtgUYRCv
oRJ4BmHhDRFtKq46XhcUDKQgkOMRCe4SwpAyMMYuFIkYWAqtOKO7vrvvvvvd
931b39bsT6FSKJTwdf+XPrq1GsOWsd0LrLqDRIsCHTR/r3R1CyEn+AO0JgX6
tc21THUvMUCjF47VK3CTlaVyUI8Spau/LykNCgyX3xE9UU0T1OuepvxzCtza
debrBZWVyJz1opakKWA6P5k1p3pG8Dpn333FTwGyZ4PsgcoJNx5mNvlVy3Hb
MfR5u0RvBPn0JGYcOQCejt/XsIcJ+KQddt4Rj5RgmyPbkYUJTu2hY6txkPqn
LG8U7kT12lf5KbpYtI0X5t4KD4fRg0OfZu5HhGtAi10RF8/milmhZXuh+rvy
Wp0cMOR+fH5cL4Xm5sMdLVIezCdmO12cSHyQ4LBt7XgM6Mk/zMpMfBweOpnK
VgswT0YRaYjCEa6v7KlGAHmfNJq/PQqprd+HdOcLYB6eTHJ7OQrqq9vs+e8L
YGtLvvDhH0CGZrRGXi9A6lBJ86M64IQHY6boVwHaRzplJA2oVJneGlEKoV9y
y7WVRKJqKif6gloI96l//JMORuLiPq9AeaYQ3n2BrPo3IqGPyLHNFAnBdDNJ
f/6FC4PTlstPDOv7DPfc8RAuGjuyJl69L4TSu4k3eX8X+jd47ktTiGB3T885
5B6OBzVB5L1kEeiN9i6NljDQERMtPCaCPKm9d9gYBrlWE8I4KcJg+m/zp94M
g3XuW8/JahH0qSLn9tOh2Gx6x0KaRYjRrXD+tOxEQfl32QEqMaoTjl6kFLJh
YFqO6zVimP2yfT+PYWNwcCXFQSsGt3dT2yY6G85rPnJLmRivXy75hn2FhYb0
Au6VRjGKz7bqqlODcVfma//Cohh9wrs9i8ZAsF2KLz3KIaF27DcWjzLQRfuR
OXSKBGX1tYijcQzwKEHdte+R6Ez/rKvxJx/EWSenk6pIlM12vhg8vRV5t8P8
J66TQGsHY3HICzfOWrsHHpNQlszbdld5gH9aIPvERsJY8aneWLoRI9pr5kKq
BBV159q0+S9hWiWx57hKsFebZ7cU6waqoEHWwpaA8oV1T6zVESJq0szVTAn6
mivinitfIcb++jK7QCuBMr7yqXTqMZGwTHc4ULze0+KbSoULRJq5K8C1Yv2/
XcIZSbxDiJY3X8r7aJ3/179Ug4SM
           "]]}, 
         Annotation[#, "Charting`Private`Tag$7471#1"]& ]}}, {}}, {{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          LineBox[CompressedData["
1:eJwBIQLe/SFib1JlAgAAACEAAAACAAAAIo/9o54e0T5fYeHu/79ZQLcIKR9t
aK8/4hpc8hK8WUDBeK6kKGi/P2XU1vUluFlAxjBxZwZozz9rR8z8S7BZQMiM
0kj1Z98/di23CpigWUDJOoO57GfvP435jCYwgVlAypHbcehn/z+8kTheYEJZ
QEq9B07mZw9AGcKPzcDEWEDNDTYJBF0gQEk+2X5ftFdAQo9FwKdPKEAbTvcH
C7ZWQGUv+g0xDTBAKnSBvLO8VUBNKWXxFkc0QLC1pkM6rlRAstR9dck4OEDW
iqCizbFTQDsSKq8EfzxAdHs11D6gUkBn+5KdpVhAQFCCNjGtk1FAb8bnM69N
QkDMHAxmKJlQQIpaBiX9bERAfKX52gITT0Bjx3tmMWhGQKM4hJnOF01AwQcZ
UWtZSEBF+OaulCZLQDERgJbpdEpA1e5/aRYLSUBg8z0sTmxMQKYMwtOxE0dA
oZ7FHPeNTkBlYTrjCPJEQLOOOtvSUlBAoOKKSVraQkB0uj1QnUxRQB6LhF/F
5kBAv8ql8olbUkAQ1Wg12JE9QGlHOb1pWFNAaOIaC1meOUCcqDG1a2pUQJxd
OStRVjVAkfO9gXB3VUDIMQj5PSIxQOaqdXZoclZA6KhSTLxsKkDERpKYgoJX
QPjJbTvr6yFAAU/a4o+AWEAgEFvSAfcTQABBtgGgeVlAwMBvkv+X8T8DAAAA
AMBZQAAAAAAAAAAAQRHm/A==
           "]]}, 
         Annotation[#, 
          "Charting`Private`Tag$7523#1"]& ]}}, {}}, {{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.011000000000000001`], 
          AbsoluteThickness[1.6], 
          GrayLevel[0], 
          Dashing[{0, Small}], 
          Thickness[0.01]], 
         LineBox[CompressedData["
1:eJztkv0vlAEAxy+c6C6vqRMLN70xU1G4uZ7vPee6t8fSXamF0pvTllOua5Ve
VKOVt8hLpi1+iE6rlHPeomfoZbIjIrF5KVHHrFYxXbXU+hf6re/22Wef379e
exMVBywYDIZijt+e2/CLexf4NpI0i5dWJEHv2Z/Dq+4lJkbSz5Ta+CF2W7WH
beEYkayJRUz/OiAj17Vs8CNRvFKlMY6thwOv6tHG+GmihCM10BHBoC/r8kM+
mAnKfnq7TyQPkl31s273GRjRbxONu4Ri+GtBd99BSzxRPbAYLeVjTaPOw8LD
GnQX81Uhk4Bni1rf2GkD1fVPDgneAKoqzT5nWThXw44vqwUYBDtnv48dnG5q
G3IEApQ0HriDgw7g1q/e104LEOxkfautwRGtlaNvi4NISATXrF6znfH8h38X
s5wEJ45ZoIleBPuAqe9D9kLULovZXVrhghGXCMNAkhDvpWv18TOLoebuNGV2
CkEflSg6SA6+sKbY2tVh6MxSHOvPcMVQ6LxLP06HIda5YzKrZymWsA57phrD
kBKjLmgadge3KFDdJRYhOCoq+uFdb5iVpxKab4iRYqyJSLjvg9u7fa98EEjR
3h244hl/Daylmz+/OSLDhqIT2ZfnB6DRnOoZqZCj961MXGJYj6DUZF7djBy0
naFDKw+G3eThl6JECqTXxQDlEx6ys5NsljRTaNL4no9byce4e/tk0zQFd//C
jDY1gax59oxVTuFgvSPrREbg9OzxHW6ccOQWV5i29glwKr97Io8VjhCma35W
D4kGLbfv2xQFbfqhetNjIarSTLNkKwVdWwq1SxeG1KfHyIWZFMy5GysHzoqw
PM2r3CCjIBzlLldKN0Fr1LBVP+WwlIZwqphi5Pil6d10crQknlS914vBp2vX
3ZPLEeXsWTQYKYHSkbg6NCbDlshM25QJCSyfu/krk2XgmmhHQ5IUC/zyzl23
leHPY2kprP/6f//vf9m/AHmLjTY=
          "]]}}}, {{}, {}}}, {{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.011000000000000001`], 
          AbsoluteThickness[1.6], 
          GrayLevel[0], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGBwAGIQjQ6EXMVtq/7et1+VKAam97R++B+0V9RhH5ROKr17
2jBSxSEFSi+ZeyvtmZ8unA7rYvc8cd0ITuspNu403WXmoAOlNTZOjQz1s4LT
32ZOn7Boqq3DFygtZ39zTpynA5wW0lruXrrEEU4vucEX9eCuk8MiKB0jKHy6
/LsznG75+/kj32cXhzYo3bXl0enMS64OPVDa5Puas2bT3eC0g7HbNm5ndwcn
KP1B921IynV3hxdQOofzVM+iUA84fYNzqzT/fg+HO1A6beuGS7dEPB1SoHTG
tFQuhQgEnXB2h8GTTgQtUOYYKbkaQZ/hfnBo/h5PhwtQmhkUCQdG6VGaPjQA
kjYTAg==
          "]]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                DynamicBox[
                 Typeset`ToBoxes[
                  EdgeForm[
                   Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], TraditionalForm, Graphics]], 
                FaceForm[{
                  GrayLevel[1], 
                  Opacity[0]}], 
                PolygonBox[{
                  Offset[{0, 5.106857870531042}, {0, 0}], 
                  Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], 
                  Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], 
                  Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], 
                  Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], 
                  Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                  Offset[{5.106857870531042, 0}, {0, 0}], 
                  Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                  Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], 
                  Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], 
                  Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], 
                  Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                  Offset[{0, -5.106857870531042}, {0, 0}], 
                  Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                  Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], 
                  
                  Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 
                   0}], 
                  Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], 
                  Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                  Offset[{-5.106857870531042, 0}, {0, 0}], 
                  Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                  Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], 
                  Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], 
                  Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], 
                  
                  Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 
                   0}]}]}, {
               ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                All, PlotRange -> All}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}], {{{18.590413231545938`, 
          54.397000821219635`}}, {{18.590413231545938`, 
          54.397000821219635`}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                DynamicBox[
                 Typeset`ToBoxes[
                  EdgeForm[
                   Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], TraditionalForm, Graphics]], 
                FaceForm[{
                  GrayLevel[1], 
                  Opacity[0]}], 
                PolygonBox[{
                  Offset[{0, 7.896444077714955}, {0, 0}], 
                  Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], 
                  
                  Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 
                   0}]}]}, {
               ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                All, PlotRange -> All}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}], {{{25.961771169753753`, 
          25.961771169753753`}}, {{25.961771169753753`, 
          25.961771169753753`}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                DynamicBox[
                 Typeset`ToBoxes[
                  EdgeForm[
                   Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], TraditionalForm, Graphics]], 
                FaceForm[{
                  GrayLevel[1], 
                  Opacity[0]}], 
                PolygonBox[{
                  Offset[{0, 5.106857870531042}, {0, 0}], 
                  Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], 
                  Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], 
                  Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], 
                  Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], 
                  Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                  Offset[{5.106857870531042, 0}, {0, 0}], 
                  Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                  Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], 
                  Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], 
                  Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], 
                  Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                  Offset[{0, -5.106857870531042}, {0, 0}], 
                  Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                  Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], 
                  
                  Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 
                   0}], 
                  Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], 
                  Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                  Offset[{-5.106857870531042, 0}, {0, 0}], 
                  Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                  Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], 
                  Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], 
                  Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], 
                  
                  Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 
                   0}]}]}, {
               ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                All, PlotRange -> All}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}], {{{33.269634413361146`, 
          58.19114006105012}}, {{33.269634413361146`, 
          58.19114006105012}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                DynamicBox[
                 Typeset`ToBoxes[
                  EdgeForm[
                   Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], TraditionalForm, Graphics]], 
                FaceForm[{
                  GrayLevel[1], 
                  Opacity[0]}], 
                PolygonBox[{
                  Offset[{0, 7.896444077714955}, {0, 0}], 
                  Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], 
                  
                  Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 
                   0}]}]}, {
               ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                All, PlotRange -> All}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}], {{{41.71248801272672, 
          41.71248801272672}}, {{41.71248801272672, 
          41.71248801272672}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                DynamicBox[
                 Typeset`ToBoxes[
                  EdgeForm[
                   Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], TraditionalForm, Graphics]], 
                FaceForm[{
                  GrayLevel[1], 
                  Opacity[0]}], 
                PolygonBox[{
                  Offset[{0, 5.106857870531042}, {0, 0}], 
                  Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], 
                  Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], 
                  Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], 
                  Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], 
                  Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                  Offset[{5.106857870531042, 0}, {0, 0}], 
                  Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                  Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], 
                  Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], 
                  Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], 
                  Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                  Offset[{0, -5.106857870531042}, {0, 0}], 
                  Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                  Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], 
                  
                  Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 
                   0}], 
                  Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], 
                  Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                  Offset[{-5.106857870531042, 0}, {0, 0}], 
                  Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                  Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], 
                  Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], 
                  Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], 
                  
                  Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 
                   0}]}]}, {
               ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                All, PlotRange -> All}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}], {{{51.5, 51.50000000000004}}, {{
          51.5, 51.50000000000004}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                DynamicBox[
                 Typeset`ToBoxes[
                  EdgeForm[
                   Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], TraditionalForm, Graphics]], 
                FaceForm[{
                  GrayLevel[1], 
                  Opacity[0]}], 
                PolygonBox[{
                  Offset[{0, 7.896444077714955}, {0, 0}], 
                  Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], 
                  
                  Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 
                   0}]}]}, {
               ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                All, PlotRange -> All}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}], {{{51.50000000000002, 
          51.50000000000002}}, {{51.50000000000002, 
          51.50000000000002}}}]}}}, {{}, {}}}}, {PlotRange -> All, AxesLabel -> {
       FormBox["\"Seller's surplus\"", TraditionalForm], 
       FormBox["\"Buyer's surplus\"", TraditionalForm]}, PlotLabel -> 
     FormBox["\"Allocations as m increases\"", TraditionalForm], 
     BaseStyle -> {FontFamily -> "Times", FontSize -> 14}, AspectRatio -> 1, 
     DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, 
     ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotRange -> {{0, 110}, {0, 110}}, 
     PlotRangeClipping -> True, 
     PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}}], 
   FormBox[
    TagBox[
     GridBox[{{
        FormBox[
         TemplateBox[{"\"Nash\""}, "PointLegend", DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small}], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small}], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small"}], "}"}], "]"}], ",", 
                    RowBox[{"Thickness", "[", "0.01`", "]"}]}], "]"}], "}"}], 
               ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
               RowBox[{"Joined", "\[Rule]", 
                 RowBox[{"{", "True", "}"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}, {
        FormBox[
         TemplateBox[{"\"Kalai\""}, "PointLegend", 
          DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
                 "}"}], ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
               RowBox[{"Joined", "\[Rule]", 
                 RowBox[{"{", "True", "}"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}, {
        FormBox[
         TemplateBox[{"\"Nash predictions\""}, "PointLegend", 
          DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    InsetBox[
                    GraphicsBox[{
                    DynamicBox[
                    Typeset`ToBoxes[
                    EdgeForm[
                    Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], StandardForm, Graphics]], 
                    FaceForm[{
                    GrayLevel[1], 
                    Opacity[0]}], 
                    PolygonBox[{
                    Offset[{0, 5.106857870531042}, {0, 0}], 
                    Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], 
                    Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], 
                    
                    Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], 
                    Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                    Offset[{5.106857870531042, 0}, {0, 0}], 
                    Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                    Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], 
                    
                    Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], 
                    Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                    Offset[{0, -5.106857870531042}, {0, 0}], 
                    
                    Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 
                    0}], 
                    Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], 
                    
                    Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], 
                    
                    Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 
                    0}], 
                    Offset[{-5.106857870531042, 0}, {0, 0}], 
                    Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                    Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], 
                    
                    Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], 
                    
                    Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 
                    0}]}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImagePadding -> 6, 
                    AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> 
                    All}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {45, 30},
                     PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.3666666666666667] -> 
                    Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False]}], "]"}], "}"}], ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{
                    GraphicsBox[{
                    DynamicBox[
                    Typeset`ToBoxes[
                    EdgeForm[
                    Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], StandardForm, Graphics]], 
                    FaceForm[{
                    GrayLevel[1], 
                    Opacity[0]}], 
                    PolygonBox[{
                    Offset[{0, 5.106857870531042}, {0, 0}], 
                    Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], 
                    Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], 
                    
                    Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], 
                    Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                    Offset[{5.106857870531042, 0}, {0, 0}], 
                    Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                    Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], 
                    
                    Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], 
                    Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                    Offset[{0, -5.106857870531042}, {0, 0}], 
                    
                    Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 
                    0}], 
                    Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], 
                    
                    Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], 
                    
                    Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 
                    0}], 
                    Offset[{-5.106857870531042, 0}, {0, 0}], 
                    Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                    Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], 
                    
                    Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], 
                    
                    Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 
                    0}]}]}, {
                    ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                    All, PlotRange -> All}], ",", "Automatic"}], "}"}], 
                   "}"}]}], ",", 
               RowBox[{"Joined", "\[Rule]", 
                 RowBox[{"{", "False", "}"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
               RowBox[{"LegendMarkerSize", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"45", ",", "30"}], "}"}]}]}], "]"}]& ), Editable -> 
          True], TraditionalForm]}, {
        FormBox[
         TemplateBox[{"\"Kalai predictions\""}, "PointLegend", 
          DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    InsetBox[
                    GraphicsBox[{
                    DynamicBox[
                    Typeset`ToBoxes[
                    EdgeForm[
                    Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], StandardForm, Graphics]], 
                    FaceForm[{
                    GrayLevel[1], 
                    Opacity[0]}], 
                    PolygonBox[{
                    Offset[{0, 7.896444077714955}, {0, 0}], 
                    
                    Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 
                    0}], 
                    
                    Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 
                    0}]}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImagePadding -> 6, 
                    AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> 
                    All}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {45, 30},
                     PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.3666666666666667] -> 
                    Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False]}], "]"}], "}"}], ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{
                    GraphicsBox[{
                    DynamicBox[
                    Typeset`ToBoxes[
                    EdgeForm[
                    Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], StandardForm, Graphics]], 
                    FaceForm[{
                    GrayLevel[1], 
                    Opacity[0]}], 
                    PolygonBox[{
                    Offset[{0, 7.896444077714955}, {0, 0}], 
                    
                    Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 
                    0}], 
                    
                    Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 
                    0}]}]}, {
                    ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                    All, PlotRange -> All}], ",", "Automatic"}], "}"}], 
                   "}"}]}], ",", 
               RowBox[{"Joined", "\[Rule]", 
                 RowBox[{"{", "False", "}"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
               RowBox[{"LegendMarkerSize", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"45", ",", "30"}], "}"}]}]}], "]"}]& ), Editable -> 
          True], TraditionalForm]}}, 
      GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
      GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7759296105794477`*^9, 3.7759297347032614`*^9, 3.8262870794271975`*^9, {
   3.8262871725377398`*^9, 3.82628719452831*^9}, 3.826287271647133*^9, 
   3.8262879203219175`*^9, 3.8262879658737755`*^9, {3.8262883329424295`*^9, 
   3.8262883863947325`*^9}, 3.8266592233165517`*^9, 3.8387500074968233`*^9, {
   3.8387500497073193`*^9, 3.838750057545593*^9}, 3.838750091833458*^9, 
   3.8387501605404663`*^9, {3.838750528126623*^9, 3.8387505294056873`*^9}, 
   3.838750609107723*^9, 3.8388064762650213`*^9, 3.840453332518633*^9, 
   3.840531986105702*^9, 3.840532478918482*^9, 3.8424495415326295`*^9, 
   3.8424496417722836`*^9, {3.8424498960046854`*^9, 3.842449913441184*^9}, 
   3.8424499896653643`*^9, {3.842450046464078*^9, 3.8424500623230653`*^9}, {
   3.8424501736959887`*^9, 3.842450210144289*^9}, 3.8424502500771055`*^9, 
   3.8424502817619104`*^9, {3.8424503177891083`*^9, 3.842450344088874*^9}, {
   3.842450690588601*^9, 3.8424506963072577`*^9}, {3.8424507653395925`*^9, 
   3.842450766656808*^9}, 3.8424508297958217`*^9, 3.8424508630388737`*^9, {
   3.842451011124395*^9, 3.842451042635617*^9}, 3.842451076981561*^9, 
   3.8424511898512645`*^9, 3.8424512760104637`*^9, 3.842451330762164*^9, {
   3.8424514166489563`*^9, 3.8424514484917603`*^9}, 3.842451515429221*^9, 
   3.8424515621583776`*^9, 3.8424515929459276`*^9, {3.8424516297162333`*^9, 
   3.842451640160593*^9}, 3.842451720972252*^9, {3.8424518860143876`*^9, 
   3.8424520015306168`*^9}, 3.8424521445341845`*^9, 3.8424524730910983`*^9},
 CellLabel->
  "Out[265]=",ExpressionUUID->"c0f579d5-9b48-4277-9a89-fb91e5fb693b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Predictions Table", "Section",
 CellChangeTimes->{{3.826659168798874*^9, 
  3.8266591795364323`*^9}},ExpressionUUID->"16a90d56-2c95-43fb-8452-\
630200476418"],

Cell[CellGroupData[{

Cell["Compute m*", "Item",
 CellChangeTimes->{{3.826659467125966*^9, 3.826659482740999*^9}, {
  3.8266595278305244`*^9, 
  3.8266595517738905`*^9}},ExpressionUUID->"5af66c00-577f-4c7a-bf2a-\
743b0fd452aa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mstar", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "theta"}], ")"}], 
    RowBox[{"u", "[", 
     RowBox[{
      RowBox[{"out2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"list2", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"out2", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", 
   RowBox[{"theta", " ", 
    RowBox[{"c", "[", 
     RowBox[{
      RowBox[{"out2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"out2", "[", 
       RowBox[{"[", "6", "]"}], "]"}], ",", 
      RowBox[{"out2", "[", 
       RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.8266595544254847`*^9, 3.826659571649912*^9}, {
  3.826659645703883*^9, 3.826659685570057*^9}, {3.8266597491998997`*^9, 
  3.826659760614007*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"34bbdbbd-f3f7-4c5e-b220-99f845c0f1a6"],

Cell[BoxData["118.90988784524794`"], "Output",
 CellChangeTimes->{
  3.826659572209021*^9, 3.8266596861602745`*^9, {3.8266597506487293`*^9, 
   3.8266597610888867`*^9}, 3.8387516485954666`*^9, {3.8388064917185435`*^9, 
   3.8388065018215466`*^9}, 3.8404533391072097`*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"045a63e9-7eff-4c25-85ed-0bf8ee7568a3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["m = 30", "Item",
 CellChangeTimes->{{3.826659191998088*^9, 
  3.82665919693573*^9}},ExpressionUUID->"02756a19-acc4-4d4e-b087-\
b507036bd713"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qtradedNash", "[", 
  RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.8266592442758555`*^9, 3.826659271750845*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"adc2d26b-8482-411f-92ea-90e9e08960b2"],

Cell[BoxData["1.24007236563087`"], "Output",
 CellChangeTimes->{{3.826659255102626*^9, 3.8266592995699573`*^9}, 
   3.8387516506374145`*^9, {3.838806496519991*^9, 3.838806502013198*^9}, 
   3.8404533392660303`*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"e7f66a7c-9d21-4ddd-9662-d3f2e90ceeaa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NashSurplusBuyer", "[", 
  RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.826659859040924*^9, 3.826659860553955*^9}, 
   3.826659893664198*^9},
 CellLabel->"In[53]:=",ExpressionUUID->"65d37bbb-f5eb-467f-8d2e-15e4df140068"],

Cell[BoxData["54.397000821219635`"], "Output",
 CellChangeTimes->{
  3.8266598984552383`*^9, 3.8387516518371153`*^9, {3.8388064966780586`*^9, 
   3.838806502105127*^9}, 3.8404533393427596`*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"43d484a9-8d3c-4715-90c5-a42753440f1e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NashSurplusSeller", "[", 
  RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.826659863552927*^9, 3.8266598946001062`*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"b0895475-89f3-445a-a333-8e818783633f"],

Cell[BoxData["18.590413231545938`"], "Output",
 CellChangeTimes->{
  3.8266598995923033`*^9, 3.8387516527048006`*^9, {3.8388064967609835`*^9, 
   3.8388065021948905`*^9}, 3.8404533394218287`*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"5057f02c-f7b1-43a6-908f-355395fe50af"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"NashSurplusBuyer", "[", 
   RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "+", 
  RowBox[{"NashSurplusSeller", "[", 
   RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8266598690900106`*^9, 3.826659875182016*^9}, {
  3.826659906741931*^9, 3.826659916698879*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"7072c0a3-2c0a-45bf-a130-3e8c6372969e"],

Cell[BoxData["72.98741405276557`"], "Output",
 CellChangeTimes->{
  3.826659917164665*^9, 3.838751653578885*^9, {3.838806496847934*^9, 
   3.8388065022867823`*^9}, 3.8404533394977913`*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"7a11aada-fe08-47b5-8e99-ef79a0a6c836"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"NashSurplusBuyer", "[", 
   RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"NashSurplusBuyer", "[", 
     RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "+", 
    RowBox[{"NashSurplusSeller", "[", 
     RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.8266598773049326`*^9, 3.826659883741912*^9}, {
  3.8266599249279203`*^9, 3.826659930463993*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"4c63ef7b-302a-476b-bc9c-1e9c2e2a7ab6"],

Cell[BoxData["0.7452928909345087`"], "Output",
 CellChangeTimes->{
  3.826659930997898*^9, 3.838751654410639*^9, {3.8388064969430666`*^9, 
   3.8388065023857126`*^9}, 3.840453339577753*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"a2f93ffc-e21d-46d1-a2c8-d278ee04b18b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qtradedKalai", "[", 
  RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.8266592442758555`*^9, 3.826659254661841*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"77de94d6-b5a4-4a68-a576-a0d3f1aec678"],

Cell[BoxData["0.6252510443448608`"], "Output",
 CellChangeTimes->{
  3.826659255102626*^9, 3.8266592995178847`*^9, 3.8387516562037115`*^9, {
   3.838806497027995*^9, 3.8388065024839983`*^9}, 3.840453339654704*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"8ddf245c-14d2-4441-87c1-27e0feeb9d43"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KalaiSurplusBuyer", "[", 
  RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.826659859040924*^9, 3.826659860553955*^9}, 
   3.826659893664198*^9, {3.826659950910922*^9, 3.8266599513180265`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"0f855ada-d3c0-47cd-a9ec-ba5132c17029"],

Cell[BoxData["25.961771169753753`"], "Output",
 CellChangeTimes->{
  3.8266598984552383`*^9, 3.826659978007095*^9, {3.838751657256864*^9, 
   3.838751659005475*^9}, {3.8388064971115656`*^9, 3.838806502580648*^9}, 
   3.8404533397346478`*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"c3f111ca-a663-412d-92dc-9d670985da87"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KalaiSurplusSeller", "[", 
  RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.826659863552927*^9, 3.8266598946001062`*^9}, 
   3.8266599572328887`*^9},
 CellLabel->"In[59]:=",ExpressionUUID->"60c5505a-f62a-485e-8051-fad4bd19317d"],

Cell[BoxData["25.961771169753753`"], "Output",
 CellChangeTimes->{
  3.8266598995923033`*^9, 3.826659978059841*^9, 3.8387516608190255`*^9, {
   3.838806497197175*^9, 3.8388065026855707`*^9}, 3.8404533398145695`*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"1dddd30c-f9bd-4b99-bdae-574186c00c3c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"KalaiSurplusBuyer", "[", 
   RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "+", 
  RowBox[{"KalaiSurplusSeller", "[", 
   RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8266598690900106`*^9, 3.826659875182016*^9}, {
  3.826659906741931*^9, 3.826659916698879*^9}, {3.826659959518922*^9, 
  3.8266599627680616`*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"b7dffe05-4a6a-4b17-924a-6e81b6265cb8"],

Cell[BoxData["51.923542339507506`"], "Output",
 CellChangeTimes->{
  3.826659917164665*^9, 3.8266599780858297`*^9, 3.8387516616573925`*^9, {
   3.838806497279046*^9, 3.838806502788532*^9}, 3.840453339893531*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"94b0e8db-3d7b-4999-9e97-0ba4cd47393e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"KalaiSurplusBuyer", "[", 
   RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"KalaiSurplusBuyer", "[", 
     RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "+", 
    RowBox[{"KalaiSurplusSeller", "[", 
     RowBox[{"30", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.8266598773049326`*^9, 3.826659883741912*^9}, {
  3.8266599249279203`*^9, 3.826659930463993*^9}, {3.8266599657198715`*^9, 
  3.826659971943939*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"1bb1c4f0-cf56-4e81-85d8-c5b2e0248159"],

Cell[BoxData["0.5`"], "Output",
 CellChangeTimes->{
  3.826659930997898*^9, 3.8266599781118135`*^9, 3.838751663733017*^9, {
   3.8388064973665457`*^9, 3.8388065028774986`*^9}, 3.8404533399711456`*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"033b1774-21c7-4ac9-8ec8-27f3bfa3b314"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["m = 60", "Item",
 CellChangeTimes->{{3.826659191998088*^9, 
  3.8266592040870285`*^9}},ExpressionUUID->"25050cd2-d11c-46ef-9b1a-\
a0b63d015ad0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qtradedKalai", "[", 
  RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.8266592442758555`*^9, 3.826659254661841*^9}, {
  3.826659286022842*^9, 3.8266592861179495`*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"53da8ac4-de36-439e-b1ec-ea1050f753e9"],

Cell[BoxData["1.6924887995942206`"], "Output",
 CellChangeTimes->{3.826659255102626*^9, 3.8266592995976973`*^9, 
  3.826660057783351*^9, 3.838751665832905*^9, 3.8388065029886885`*^9, 
  3.840453340051405*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"d84436cd-5cca-4168-b114-ca0c1342d8e6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KalaiSurplusBuyer", "[", 
  RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.826659859040924*^9, 3.826659860553955*^9}, 
   3.826659893664198*^9, {3.826659950910922*^9, 3.8266599513180265`*^9}, {
   3.826660037000035*^9, 3.8266600384779325`*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"3da9db4b-c1b5-4b24-9f83-e605918b3830"],

Cell[BoxData["41.71248801272672`"], "Output",
 CellChangeTimes->{3.8266598984552383`*^9, 3.826659978007095*^9, 
  3.8266600578203807`*^9, 3.8387516666235514`*^9, 3.8388065030798793`*^9, 
  3.8404533401319556`*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"257a2807-a699-48f8-a0f5-d243b394e69a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KalaiSurplusSeller", "[", 
  RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.826659863552927*^9, 3.8266598946001062`*^9}, 
   3.8266599572328887`*^9, {3.8266600396069317`*^9, 3.8266600396859303`*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"cd58d9da-0352-4509-a0d9-2142bd8226b0"],

Cell[BoxData["41.71248801272672`"], "Output",
 CellChangeTimes->{3.8266598995923033`*^9, 3.826659978059841*^9, 
  3.826660057842123*^9, 3.838751667585932*^9, 3.838806503172847*^9, 
  3.840453340232899*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"aae997fa-bcff-499e-bbe7-3950ee3f1f64"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"KalaiSurplusBuyer", "[", 
   RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "+", 
  RowBox[{"KalaiSurplusSeller", "[", 
   RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8266598690900106`*^9, 3.826659875182016*^9}, {
  3.826659906741931*^9, 3.826659916698879*^9}, {3.826659959518922*^9, 
  3.8266599627680616`*^9}, {3.826660040927929*^9, 3.8266600421979303`*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"b9cb2719-717a-4212-9cc4-c24c3d64ae60"],

Cell[BoxData["83.42497602545345`"], "Output",
 CellChangeTimes->{3.826659917164665*^9, 3.8266599780858297`*^9, 
  3.8266600578707056`*^9, 3.8387516690739574`*^9, 3.8388065032647834`*^9, 
  3.8404533403068542`*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"83aa7097-35b3-4d09-b220-9b2a8605ca87"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"KalaiSurplusBuyer", "[", 
   RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"KalaiSurplusBuyer", "[", 
     RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "+", 
    RowBox[{"KalaiSurplusSeller", "[", 
     RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.8266598773049326`*^9, 3.826659883741912*^9}, {
  3.8266599249279203`*^9, 3.826659930463993*^9}, {3.8266599657198715`*^9, 
  3.826659971943939*^9}, {3.82666004371093*^9, 3.8266600476306286`*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"53b36903-ed91-46f1-9d4b-81ca8378b338"],

Cell[BoxData["0.5`"], "Output",
 CellChangeTimes->{3.826659930997898*^9, 3.8266599781118135`*^9, 
  3.8266600578998337`*^9, 3.8387516699748554`*^9, 3.8388065033588657`*^9, 
  3.8404533403843994`*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"07a0414e-426d-44ab-9102-c57d56e64d79"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qtradedNash", "[", 
  RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.8266592442758555`*^9, 3.8266592885259542`*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"173dc55c-f483-4cbf-8bd0-7a108077c4d8"],

Cell[BoxData["2.173753078277914`"], "Output",
 CellChangeTimes->{{3.826659255102626*^9, 3.826659299627776*^9}, 
   3.8266600579252305`*^9, 3.838751671176124*^9, 3.838806503452372*^9, 
   3.8404533404613457`*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"56e660a8-ee67-494e-90cd-0a1b1c3f00cf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NashSurplusBuyer", "[", 
  RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.826659859040924*^9, 3.826659860553955*^9}, 
   3.826659893664198*^9, {3.8266600138399453`*^9, 3.826660013886871*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"f3337d36-dfb2-43df-a0bc-14123b9d5dba"],

Cell[BoxData["58.19114006105012`"], "Output",
 CellChangeTimes->{3.8266598984552383`*^9, 3.8266600579534345`*^9, 
  3.8387516721773863`*^9, 3.8388065035417986`*^9, 3.8404533405381093`*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"9ca4a2eb-0fbb-423d-9e23-be14bd8d9072"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NashSurplusSeller", "[", 
  RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.826659863552927*^9, 3.8266598946001062`*^9}, {
  3.8266600159029274`*^9, 3.8266600159739265`*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"742fbdbb-68fa-495e-9102-e1b8a1fc830c"],

Cell[BoxData["33.269634413361146`"], "Output",
 CellChangeTimes->{3.8266598995923033`*^9, 3.8266600579821568`*^9, 
  3.83875167343276*^9, 3.838806503632468*^9, 3.840453340550096*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"94da6aad-82fe-4f76-8e51-c3e7d47f206e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"NashSurplusBuyer", "[", 
   RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "+", 
  RowBox[{"NashSurplusSeller", "[", 
   RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8266598690900106`*^9, 3.826659875182016*^9}, {
  3.826659906741931*^9, 3.826659916698879*^9}, {3.8266600181109257`*^9, 
  3.826660020118032*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"29aed3ad-e018-47ea-80a8-2d1626db8b21"],

Cell[BoxData["91.46077447441127`"], "Output",
 CellChangeTimes->{3.826659917164665*^9, 3.8266600580071635`*^9, 
  3.8387516743598175`*^9, 3.8388065037283654`*^9, 3.840453340629139*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"96679aaf-d7b1-4498-a429-d4ca8cab1752"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"NashSurplusBuyer", "[", 
   RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"NashSurplusBuyer", "[", 
     RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "+", 
    RowBox[{"NashSurplusSeller", "[", 
     RowBox[{"60", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.8266598773049326`*^9, 3.826659883741912*^9}, {
  3.8266599249279203`*^9, 3.826659930463993*^9}, {3.826660021854929*^9, 
  3.82666002584593*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"36048e36-fea9-47fe-9a7f-cedfe05c51dc"],

Cell[BoxData["0.6362414969198706`"], "Output",
 CellChangeTimes->{3.826659930997898*^9, 3.8266600580341253`*^9, 
  3.8387516759855924`*^9, 3.838806503821664*^9, 3.84045334070759*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"4c552cdd-cac3-4a6c-a004-8bb54053311b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["m = 135", "Item",
 CellChangeTimes->{{3.826659191998088*^9, 
  3.8266592069818354`*^9}},ExpressionUUID->"d10d61f5-e766-4217-989c-\
a321047ea04a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qtradedKalai", "[", 
  RowBox[{"mstar", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.8266592442758555`*^9, 3.826659254661841*^9}, {
  3.826659293542844*^9, 3.8266592937587337`*^9}, {3.826659773607388*^9, 
  3.8266597744140053`*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"930fb36a-5c16-4a6b-bf66-8d827bb8acca"],

Cell[BoxData["3.9999999999999996`"], "Output",
 CellChangeTimes->{3.826659255102626*^9, 3.8266592996600046`*^9, 
  3.8266597747801647`*^9, 3.8266600965804586`*^9, 3.8266601488825226`*^9, 
  3.8387516783732915`*^9, 3.838806503915743*^9, 3.84045334078452*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"b893d396-7b5e-40d6-88e8-fe0c32e4d050"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KalaiSurplusBuyer", "[", 
  RowBox[{"135", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.826659859040924*^9, 3.826659860553955*^9}, 
   3.826659893664198*^9, {3.826659950910922*^9, 3.8266599513180265`*^9}, {
   3.826660037000035*^9, 3.8266600384779325`*^9}, {3.8266600794484987`*^9, 
   3.826660079853939*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"6e2c3876-2e73-43ca-ba21-82f7b1d26f78"],

Cell[BoxData["51.50000000000002`"], "Output",
 CellChangeTimes->{3.8266598984552383`*^9, 3.826659978007095*^9, 
  3.8266600578203807`*^9, 3.826660096616418*^9, 3.8266601489240103`*^9, 
  3.8387516792230177`*^9, 3.838806504018714*^9, 3.8404533408624935`*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"36e79fcd-3c27-4fa3-b2c0-30b2254c74ab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KalaiSurplusSeller", "[", 
  RowBox[{"135", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.826659863552927*^9, 3.8266598946001062`*^9}, 
   3.8266599572328887`*^9, {3.8266600396069317`*^9, 3.8266600396859303`*^9}, {
   3.826660082382934*^9, 3.8266600843430967`*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"fd7b0b32-0eba-460b-869a-21b4e3e01f09"],

Cell[BoxData["51.50000000000002`"], "Output",
 CellChangeTimes->{3.8266598995923033`*^9, 3.826659978059841*^9, 
  3.826660057842123*^9, 3.8266600966497035`*^9, 3.826660148950553*^9, 
  3.8387516803593097`*^9, 3.838806504115593*^9, 3.8404533409382443`*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"196abef4-154f-46c2-be8d-a7699552b771"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"KalaiSurplusBuyer", "[", 
   RowBox[{"135", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "+", 
  RowBox[{"KalaiSurplusSeller", "[", 
   RowBox[{"135", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8266598690900106`*^9, 3.826659875182016*^9}, {
  3.826659906741931*^9, 3.826659916698879*^9}, {3.826659959518922*^9, 
  3.8266599627680616`*^9}, {3.826660040927929*^9, 3.8266600421979303`*^9}, {
  3.826660087951535*^9, 3.8266600911748066`*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"c6560fcf-c216-4974-82f4-a748758cd07c"],

Cell[BoxData["103.00000000000004`"], "Output",
 CellChangeTimes->{3.826659917164665*^9, 3.8266599780858297`*^9, 
  3.8266600578707056`*^9, 3.82666009667629*^9, 3.8266601489797564`*^9, 
  3.8387516818168087`*^9, 3.8388065042065525`*^9, 3.840453341015525*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"bc711bfd-24b9-47fa-bdc7-e641080400d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"KalaiSurplusBuyer", "[", 
   RowBox[{"135", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"KalaiSurplusBuyer", "[", 
     RowBox[{"135", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "+", 
    RowBox[{"KalaiSurplusSeller", "[", 
     RowBox[{"135", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.8266598773049326`*^9, 3.826659883741912*^9}, {
  3.8266599249279203`*^9, 3.826659930463993*^9}, {3.8266599657198715`*^9, 
  3.826659971943939*^9}, {3.82666004371093*^9, 3.8266600476306286`*^9}, {
  3.8266601062647867`*^9, 3.826660110951987*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"abb61572-abec-4987-ace2-0ba2693181cd"],

Cell[BoxData["0.5`"], "Output",
 CellChangeTimes->{3.826659930997898*^9, 3.8266599781118135`*^9, 
  3.8266600578998337`*^9, 3.826660149008238*^9, 3.8387516826669807`*^9, 
  3.838806504298499*^9, 3.8404533410949016`*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"48ebba4c-0a8d-4b04-b7bd-552b7a5adc48"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qtradedNash", "[", 
  RowBox[{"mstar", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.8266592442758555`*^9, 3.8266592964457774`*^9}, {
  3.8266597775998983`*^9, 3.8266597784060163`*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"a823b8eb-809c-431b-b23a-6ead9452fbe1"],

Cell[BoxData["3.999999999999999`"], "Output",
 CellChangeTimes->{{3.826659255102626*^9, 3.826659299685968*^9}, 
   3.8266597786168003`*^9, 3.826660149033223*^9, 3.8387516841441593`*^9, 
   3.8388065043875084`*^9, 3.840453341177854*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"8993eee8-d732-41a2-80eb-17d14efdab51"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NashSurplusBuyer", "[", 
  RowBox[{"135", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.826659859040924*^9, 3.826659860553955*^9}, 
   3.826659893664198*^9, {3.8266600138399453`*^9, 3.826660013886871*^9}, 
   3.826660131001604*^9},
 CellLabel->"In[78]:=",ExpressionUUID->"2aa96757-3c79-422e-98e1-775e5222dc18"],

Cell[BoxData["51.50000000000004`"], "Output",
 CellChangeTimes->{3.8266598984552383`*^9, 3.8266600579534345`*^9, 
  3.826660149059616*^9, 3.8387516849461985`*^9, 3.8388065044786367`*^9, 
  3.840453341332975*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"aed04d52-aba0-40aa-bc08-99fd5141b1e9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NashSurplusSeller", "[", 
  RowBox[{"135", ",", "theta", ",", "list2", ",", "out2"}], "]"}]], "Input",
 CellChangeTimes->{{3.826659863552927*^9, 3.8266598946001062`*^9}, {
   3.8266600159029274`*^9, 3.8266600159739265`*^9}, 3.826660132352023*^9},
 CellLabel->"In[79]:=",ExpressionUUID->"3e9f3494-e40b-4192-b63b-95b13985aa00"],

Cell[BoxData["51.5`"], "Output",
 CellChangeTimes->{3.8266598995923033`*^9, 3.8266600579821568`*^9, 
  3.826660149084915*^9, 3.8387516880646715`*^9, 3.838806504568959*^9, 
  3.840453341419922*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"113a4336-2440-4f01-8133-e59a6b547f29"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"NashSurplusBuyer", "[", 
   RowBox[{"135", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "+", 
  RowBox[{"NashSurplusSeller", "[", 
   RowBox[{"135", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8266598690900106`*^9, 3.826659875182016*^9}, {
  3.826659906741931*^9, 3.826659916698879*^9}, {3.8266600181109257`*^9, 
  3.826660020118032*^9}, {3.826660133952176*^9, 3.8266601359679613`*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"390d9713-a351-4d93-b9b7-b712cc29ec14"],

Cell[BoxData["103.00000000000004`"], "Output",
 CellChangeTimes->{3.826659917164665*^9, 3.8266600580071635`*^9, 
  3.8266601491107464`*^9, 3.838751687199456*^9, 3.838806504663247*^9, 
  3.840453341513056*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"3cfc801d-0cf0-43b1-9d70-063a49f7f82c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"NashSurplusBuyer", "[", 
   RowBox[{"135", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"NashSurplusBuyer", "[", 
     RowBox[{"135", ",", "theta", ",", "list2", ",", "out2"}], "]"}], "+", 
    RowBox[{"NashSurplusSeller", "[", 
     RowBox[{"135", ",", "theta", ",", "list2", ",", "out2"}], "]"}]}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.8266598773049326`*^9, 3.826659883741912*^9}, {
  3.8266599249279203`*^9, 3.826659930463993*^9}, {3.826660021854929*^9, 
  3.82666002584593*^9}, {3.8266601382888947`*^9, 3.826660143440728*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"e13aac02-3d99-43ad-a2ae-eea0583b1dfd"],

Cell[BoxData["0.5000000000000002`"], "Output",
 CellChangeTimes->{3.826659930997898*^9, 3.8266600580341253`*^9, 
  3.8266601491358175`*^9, 3.8387516864404345`*^9, 3.8388065047584853`*^9, 
  3.840453341591036*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"1f5790ec-6f92-420d-8a15-1ea787a4e658"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Non - zero disagreement point", "Section",
 CellChangeTimes->{{3.8387413391745033`*^9, 
  3.8387413479176893`*^9}},ExpressionUUID->"943d7995-b61c-4300-9c69-\
8085b382ca99"],

Cell[CellGroupData[{

Cell["Set the disagreement point, (db, ds)", "Item",
 CellChangeTimes->{{3.8387455879572616`*^9, 
  3.838745603564025*^9}},ExpressionUUID->"7f23f379-7af0-4646-a10b-\
12618f22ca24"],

Cell[BoxData[
 RowBox[{
  RowBox[{"db", "=", "5"}], ";"}]], "Input",
 CellChangeTimes->{{3.8387456620559406`*^9, 3.8387456704908094`*^9}, 
   3.838810927301076*^9},
 CellLabel->
  "In[314]:=",ExpressionUUID->"067c33d4-1b41-4bee-82ea-a27ad1c10df7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ds", "=", "10"}], ";"}]], "Input",
 CellChangeTimes->{{3.838745664991188*^9, 3.8387456724898005`*^9}, {
  3.838810931205249*^9, 3.838810931668256*^9}},
 CellLabel->
  "In[315]:=",ExpressionUUID->"2be3551f-caad-472d-8ffe-2db61c1b8f5b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Nash", "Item",
 CellChangeTimes->{
  3.7736120951626263`*^9, {3.7736136251379747`*^9, 
   3.7736136287658987`*^9}},ExpressionUUID->"0e372ccf-f1aa-413c-8b81-\
7a6b4a5f71f5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ystar", "=", 
  RowBox[{
   RowBox[{"theta", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"c", "[", 
       RowBox[{
        RowBox[{"out2", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"out2", "[", 
         RowBox[{"[", "6", "]"}], "]"}], ",", 
        RowBox[{"out2", "[", 
         RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "+", "ds"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "theta"}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"u", "[", 
       RowBox[{
        RowBox[{"out2", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"list2", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"out2", "[", 
         RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", "db"}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.838807240347656*^9, 3.8388073359238997`*^9}},
 CellLabel->
  "In[316]:=",ExpressionUUID->"1410af5c-f619-4e5f-949a-46734c763ede"],

Cell[BoxData["121.40988784524794`"], "Output",
 CellChangeTimes->{3.838807301366775*^9, 3.838807336711229*^9, 
  3.8388109353226905`*^9},
 CellLabel->
  "Out[316]=",ExpressionUUID->"e252b3a3-fcda-4937-b166-0c0cfffd3f8e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"qtradedNash", "[", 
   RowBox[{
   "m_", ",", "theta_", ",", "list_", ",", "out_", ",", " ", "db_", ",", 
    "ds_"}], "]"}], ":=", " ", 
  RowBox[{"q", "/.", 
   RowBox[{
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{"m", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"theta", " ", 
           RowBox[{"uprime", "[", 
            RowBox[{"q", ",", 
             RowBox[{"list2", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"out2", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"c", "[", 
              RowBox[{"q", ",", 
               RowBox[{"out2", "[", 
                RowBox[{"[", "6", "]"}], "]"}], ",", 
               RowBox[{"out2", "[", 
                RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "+", "ds"}], ")"}]}],
           "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "theta"}], ")"}], 
           RowBox[{"cprime", "[", 
            RowBox[{"q", ",", 
             RowBox[{"out2", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"out2", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"u", "[", 
              RowBox[{"q", ",", 
               RowBox[{"list2", "[", 
                RowBox[{"[", "2", "]"}], "]"}], ",", 
               RowBox[{"out2", "[", 
                RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", "db"}], 
            ")"}]}]}], " ", ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"theta", " ", 
           RowBox[{"uprime", "[", 
            RowBox[{"q", ",", 
             RowBox[{"list2", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"out2", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "theta"}], ")"}], 
           RowBox[{"cprime", "[", 
            RowBox[{"q", ",", 
             RowBox[{"out2", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"out2", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}], " ", ")"}]}]}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"q", ",", "0.01", ",", "4"}], "}"}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7736120809717503`*^9, 3.7736122306761*^9}, {
  3.7736125939241714`*^9, 3.773612620770815*^9}, {3.7736134220542355`*^9, 
  3.7736134849662066`*^9}, {3.7736135291759276`*^9, 3.773613529603682*^9}, {
  3.7736136314443955`*^9, 3.7736136322019405`*^9}, {3.838742354015542*^9, 
  3.8387423586475134`*^9}, {3.838742390000143*^9, 3.838742415703158*^9}, {
  3.838806559465788*^9, 3.8388065648029175`*^9}, {3.8388066111055574`*^9, 
  3.838806617409295*^9}, {3.8388067412522774`*^9, 3.838806750651125*^9}, {
  3.8388076763991218`*^9, 3.8388077318708844`*^9}, {3.8388077937044635`*^9, 
  3.8388078381050444`*^9}, {3.8388080658444324`*^9, 3.8388081274761257`*^9}, {
  3.8388082755033956`*^9, 3.838808308079793*^9}, {3.8388083646006923`*^9, 
  3.8388083651881065`*^9}, {3.838809167836054*^9, 3.8388091965933957`*^9}},
 CellLabel->
  "In[317]:=",ExpressionUUID->"0bdfecf4-5317-4dbf-8a4b-be812bd7f404"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"qtradedNash", "[", 
  RowBox[{"10", ",", ".5", ",", "list2", ",", "out2", ",", "db", ",", "ds"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8388065266974893`*^9, 3.8388065539207907`*^9}, {
  3.838806630665814*^9, 3.838806641192961*^9}, {3.8388073547579412`*^9, 
  3.838807372731121*^9}, {3.8388092051325884`*^9, 3.8388092470848093`*^9}, {
  3.8388109536774864`*^9, 3.838810966117154*^9}},
 CellLabel->
  "In[352]:=",ExpressionUUID->"25ea1dca-2849-436e-b10d-1784fd188def"],

Cell[BoxData["0.03997595195684132`"], "Output",
 CellChangeTimes->{{3.8388065419733477`*^9, 3.8388065674595585`*^9}, {
   3.8388066272780747`*^9, 3.8388066416102533`*^9}, 3.838806745587219*^9, {
   3.838807356708253*^9, 3.8388073729812555`*^9}, {3.838807691693116*^9, 
   3.8388077130751424`*^9}, 3.8388077570611258`*^9, {3.838807825207122*^9, 
   3.8388078397542934`*^9}, 3.838808078264187*^9, 3.838808312715873*^9, 
   3.8388083714348555`*^9, {3.838809188422885*^9, 3.8388092474754477`*^9}, {
   3.838810935527416*^9, 3.838810966370911*^9}},
 CellLabel->
  "Out[352]=",ExpressionUUID->"d994f5ae-5c6b-43f6-b6d7-937dcf10a91f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"NashSurplusBuyer", "[", 
   RowBox[{
   "m_", ",", "theta_", ",", "list_", ",", "out_", ",", "db_", ",", "ds_"}], 
   "]"}], ":=", " ", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"theta", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"list", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", " ", 
          RowBox[{"c", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
            RowBox[{"out", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "-", "db", "-", "ds"}], 
         ")"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"m", " ", "\[GreaterEqual]", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"list", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", "db"}], ")"}]}], 
         "+", 
         RowBox[{"theta", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"c", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
              RowBox[{"out", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "+", "ds"}], 
           ")"}]}]}]}]}], "\[IndentingNewLine]", "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"theta", " ", 
        RowBox[{"uprime", "[", 
         RowBox[{
          RowBox[{"qtradedNash", "[", 
           RowBox[{
           "m", ",", "theta", ",", "list", ",", "out", ",", "db", ",", "ds"}],
            "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{
             RowBox[{"qtradedNash", "[", 
              RowBox[{
              "m", ",", "theta", ",", "list", ",", "out", ",", "db", ",", 
               "ds"}], "]"}], ",", 
             RowBox[{"list", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", 
           RowBox[{"c", "[", 
            RowBox[{
             RowBox[{"qtradedNash", "[", 
              RowBox[{
              "m", ",", "theta", ",", "list", ",", "out", ",", "db", ",", 
               "ds"}], "]"}], ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"out", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "-", "ds", "-", "db"}],
           ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"theta", " ", 
            RowBox[{"uprime", "[", 
             RowBox[{
              RowBox[{"qtradedNash", "[", 
               RowBox[{
               "m", ",", "theta", ",", "list", ",", "out", ",", "db", ",", 
                "ds"}], "]"}], ",", 
              RowBox[{"list", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", "theta"}], ")"}], 
            RowBox[{"cprime", "[", 
             RowBox[{
              RowBox[{"qtradedNash", "[", 
               RowBox[{
               "m", ",", "theta", ",", "list", ",", "out", ",", "db", ",", 
                "ds"}], "]"}], ",", " ", 
              RowBox[{"out", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}], ")"}]}]}], ",", 
       RowBox[{"m", " ", "<", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"list", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", "db"}], ")"}]}], 
         "+", 
         RowBox[{"theta", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"c", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
              RowBox[{"out", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "+", "ds"}], 
           ")"}]}]}]}]}], "\[IndentingNewLine]", "}"}]}], 
    "\[IndentingNewLine]", "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.759183203696696*^9, 3.7591832101875687`*^9}, 
   3.7591832564311895`*^9, {3.759183405509489*^9, 3.7591834915530357`*^9}, {
   3.759183530189556*^9, 3.759183719203179*^9}, 3.759183760759267*^9, {
   3.759184418462097*^9, 3.7591844332346315`*^9}, {3.7591844843024282`*^9, 
   3.759184494907154*^9}, {3.7595861352168646`*^9, 3.759586299851221*^9}, {
   3.7736136367913046`*^9, 3.773613651420946*^9}, {3.838742643054667*^9, 
   3.8387426964052153`*^9}, {3.8387451468701305`*^9, 
   3.8387451645592327`*^9}, {3.838751876186699*^9, 3.8387518936665955`*^9}, {
   3.838752028328017*^9, 3.8387520474710784`*^9}, 3.8387522348121195`*^9, {
   3.838809274798815*^9, 3.8388092791389055`*^9}},
 CellLabel->
  "In[319]:=",ExpressionUUID->"86561608-ee99-4214-bdf9-b221cab5c941"],

Cell[BoxData[
 RowBox[{
  RowBox[{"NashSurplusSeller", "[", 
   RowBox[{
   "m_", ",", "theta_", ",", "list_", ",", "out_", ",", "db_", ",", "ds_"}], 
   "]"}], ":=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"out", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", " ", 
        RowBox[{"c", "[", 
         RowBox[{
          RowBox[{"out", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
          RowBox[{"out", "[", 
           RowBox[{"[", "6", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "-", "ds", "-", "db", "-", 
        RowBox[{"NashSurplusBuyer", "[", 
         RowBox[{
         "m", ",", "theta", ",", "list", ",", "out", ",", "db", ",", "ds"}], 
         "]"}]}], ",", 
       RowBox[{"m", " ", "\[GreaterEqual]", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"list", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", "db"}], ")"}]}], 
         "+", 
         RowBox[{"theta", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"c", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
              RowBox[{"out", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "+", "ds"}], 
           ")"}]}]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"qtradedNash", "[", 
           RowBox[{
           "m", ",", "theta", ",", "list", ",", "out", ",", "db", ",", "ds"}],
            "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", 
        RowBox[{"c", "[", 
         RowBox[{
          RowBox[{"qtradedNash", "[", 
           RowBox[{
           "m", ",", "theta", ",", "list", ",", "out", ",", "db", ",", "ds"}],
            "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "6", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "-", "ds", "-", "db", "-", 
        RowBox[{"NashSurplusBuyer", "[", 
         RowBox[{
         "m", ",", "theta", ",", "list", ",", "out", ",", "db", ",", "ds"}], 
         "]"}]}], ",", 
       RowBox[{"m", " ", "<", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"list", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", "db"}], ")"}]}], 
         "+", 
         RowBox[{"theta", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"c", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
              RowBox[{"out", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "+", "ds"}], 
           ")"}]}]}]}]}], "}"}]}], "\[IndentingNewLine]", "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7591858371252995`*^9, 3.7591858483618574`*^9}, {
   3.7591865270467196`*^9, 3.759186549051114*^9}, {3.7595863088313475`*^9, 
   3.7595863160357437`*^9}, {3.7595863782747536`*^9, 3.7595864761409693`*^9}, 
   3.7723844332158465`*^9, {3.7736137118653493`*^9, 3.773613715851078*^9}, {
   3.838745307332076*^9, 3.8387453533012357`*^9}, {3.8387519060263557`*^9, 
   3.8387519140740175`*^9}, {3.8387519957244415`*^9, 3.8387520134003196`*^9}},
 CellLabel->
  "In[320]:=",ExpressionUUID->"670eb8ec-623f-4b23-9f09-c87669d2138a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Kalai", "Item",
 CellChangeTimes->{{3.7736136705849648`*^9, 
  3.7736136752413006`*^9}},ExpressionUUID->"fd1de509-bf88-4c91-b376-\
41123f52d6ad"],

Cell[BoxData[
 RowBox[{
  RowBox[{"qtradedKalai", "[", 
   RowBox[{
   "m_", ",", " ", "theta_", ",", " ", "list_", ",", " ", "out_", ",", "db_", 
    ",", "ds_"}], "]"}], " ", ":=", "  ", 
  RowBox[{"q", " ", "/.", " ", 
   RowBox[{
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{"m", " ", "-", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", " ", "-", " ", "theta"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"q", ",", " ", 
            RowBox[{"list", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
            RowBox[{"out", "[", 
             RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", "db"}], ")"}]}], 
       " ", "-", " ", 
       RowBox[{"theta", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"c", "[", 
           RowBox[{"q", ",", " ", 
            RowBox[{"out", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", " ", 
            RowBox[{"out", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "+", "ds"}], ")"}]}]}], 
      ",", " ", 
      RowBox[{"{", 
       RowBox[{"q", ",", "0.01", ",", "4"}], "}"}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7736136622597594`*^9, 3.773613665006177*^9}, {
  3.8387454023634615`*^9, 3.838745419619361*^9}, {3.8387455036178317`*^9, 
  3.838745505146742*^9}, {3.8387517047890544`*^9, 3.83875172291712*^9}, {
  3.838811139392873*^9, 3.838811141487885*^9}, {3.8388111746973424`*^9, 
  3.838811186857371*^9}},
 CellLabel->
  "In[383]:=",ExpressionUUID->"6421b9fc-69a8-488d-a0e8-dfd54e2cda68"],

Cell[BoxData[
 RowBox[{
  RowBox[{"KalaiSurplusBuyer", "[", 
   RowBox[{
   "m_", ",", "theta_", ",", " ", "list_", ",", "out_", ",", "db_", ",", 
    "ds_"}], "]"}], " ", ":=", 
  RowBox[{"Piecewise", "[", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"qtradedKalai", "[", 
           RowBox[{
           "m", ",", "theta", ",", " ", "list", ",", " ", "out", ",", "db", 
            ",", "ds"}], "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", " ", "m", "-", 
        "db"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"list", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", "db"}], ")"}]}], 
         "+", 
         RowBox[{"theta", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"c", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
              RowBox[{"out", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "+", "ds"}], 
           ")"}]}]}], ">", "m"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"theta", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"list", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", " ", 
          RowBox[{"c", "[", 
           RowBox[{
            RowBox[{"out", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "6", "]"}], "]"}], ",", 
            RowBox[{"out", "[", 
             RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "-", "ds", "-", "db"}], 
         ")"}]}], ",", 
       RowBox[{"m", ">=", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"list", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", "db"}], ")"}]}], 
         "+", 
         RowBox[{"theta", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"c", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
              RowBox[{"out", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "+", "ds"}], 
           ")"}]}]}]}]}], "}"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.759175319628004*^9, 3.759175347610447*^9}, {
   3.759175685780758*^9, 3.7591759594589844`*^9}, {3.7591772636485243`*^9, 
   3.7591772902373276`*^9}, {3.75917737421733*^9, 3.7591774137444735`*^9}, 
   3.759177500508041*^9, {3.7591823247592244`*^9, 3.759182326204537*^9}, {
   3.7591827970289135`*^9, 3.7591828001988688`*^9}, {3.7595859027876186`*^9, 
   3.7595860059849443`*^9}, {3.77361367976574*^9, 3.7736136802394643`*^9}, {
   3.83874542746813*^9, 3.8387455143920803`*^9}, 3.8387519262908583`*^9},
 CellLabel->
  "In[322]:=",ExpressionUUID->"701bc191-349a-429e-87ce-5f2957393015"],

Cell[BoxData[
 RowBox[{
  RowBox[{"KalaiSurplusSeller", "[", 
   RowBox[{
   "m_", ",", "theta_", ",", " ", "list_", ",", "out_", ",", "db_", ",", 
    "ds_"}], "]"}], ":=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"out", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", " ", 
        RowBox[{"c", "[", 
         RowBox[{
          RowBox[{"out", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
          RowBox[{"out", "[", 
           RowBox[{"[", "6", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "-", "db", "-", "ds", "-", 
        RowBox[{"KalaiSurplusBuyer", "[", 
         RowBox[{
         "m", ",", "theta", ",", "list", ",", "out", ",", "db", ",", "ds"}], 
         "]"}]}], ",", 
       RowBox[{"m", " ", "\[GreaterEqual]", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"list", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", "db"}], ")"}]}], 
         "+", 
         RowBox[{"theta", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"c", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
              RowBox[{"out", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "+", "ds"}], 
           ")"}]}]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"qtradedKalai", "[", 
           RowBox[{
           "m", ",", "theta", ",", "list", ",", "out", ",", "db", ",", "ds"}],
            "]"}], ",", 
          RowBox[{"list", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", 
        RowBox[{"c", "[", 
         RowBox[{
          RowBox[{"qtradedKalai", "[", 
           RowBox[{
           "m", ",", "theta", ",", "list", ",", "out", ",", "db", ",", "ds"}],
            "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "6", "]"}], "]"}], ",", 
          RowBox[{"out", "[", 
           RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "-", "db", "-", "ds", "-", 
        RowBox[{"KalaiSurplusBuyer", "[", 
         RowBox[{
         "m", ",", "theta", ",", "list", ",", "out", ",", "db", ",", "ds"}], 
         "]"}]}], ",", 
       RowBox[{"m", " ", "<", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "theta"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"list", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "-", "db"}], ")"}]}], 
         "+", 
         RowBox[{"theta", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"c", "[", 
             RowBox[{
              RowBox[{"out", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
              RowBox[{"out", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"out", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}], "]"}], "+", "ds"}], 
           ")"}]}]}]}]}], "}"}]}], "\[IndentingNewLine]", "}"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.759185533416277*^9, 3.7591855593996005`*^9}, {
   3.7591855904786873`*^9, 3.7591856913272247`*^9}, {3.75958601614702*^9, 
   3.759586122323367*^9}, 3.772384451998023*^9, {3.7736137417182827`*^9, 
   3.7736137450833254`*^9}, {3.8387454975468054`*^9, 3.838745578387309*^9}, {
   3.838751936961499*^9, 3.838751945289347*^9}},
 CellLabel->
  "In[323]:=",ExpressionUUID->"86b07cf8-2118-41a9-92d8-784a27fcf7f2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Record the pairs of surpluses for Nash and Kalai for the three frontiers\
\>", "Item",
 CellChangeTimes->{{3.773318668938597*^9, 3.773318711120598*^9}, {
  3.8262875812544575`*^9, 
  3.826287581726415*^9}},ExpressionUUID->"23074398-ac7b-4afd-8e6f-\
11be0ecd47fd"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"alloc30Nashd", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"NashSurplusSeller", "[", 
        RowBox[{
        "30", ",", "theta", ",", "list2", ",", "out2", ",", "db", ",", "ds"}],
         "]"}], "+", "ds"}], ",", " ", 
      RowBox[{
       RowBox[{"NashSurplusBuyer", "[", 
        RowBox[{
        "30", ",", "theta", ",", "list2", ",", "out2", ",", "db", ",", "ds"}],
         "]"}], "+", "db"}]}], "}"}]}], ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.759187198899643*^9, 3.759187209365341*^9}, 
   3.759193681748773*^9, {3.773318810467305*^9, 3.7733188856155863`*^9}, {
   3.77331897268437*^9, 3.773319012074295*^9}, 3.7741059923518543`*^9, {
   3.7759296586388865`*^9, 3.7759296665553455`*^9}, {3.8262871626555977`*^9, 
   3.826287178400468*^9}, {3.826287690655467*^9, 3.8262876913114676`*^9}, 
   3.8262877279054556`*^9, {3.8387517707388906`*^9, 3.8387517921945457`*^9}, {
   3.8387518441073213`*^9, 3.838751850031865*^9}, 3.8388094098551397`*^9, {
   3.838809913862277*^9, 3.838809917813897*^9}},
 CellLabel->
  "In[324]:=",ExpressionUUID->"55fc1b54-1bae-46a1-9666-1c37fed761ac"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"alloc30Kalaid", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"KalaiSurplusSeller", "[", 
        RowBox[{
        "30", ",", "theta", ",", "list2", ",", "out2", ",", "db", ",", "ds"}],
         "]"}], "+", "ds"}], ",", " ", 
      RowBox[{
       RowBox[{"KalaiSurplusBuyer", "[", 
        RowBox[{
        "30", ",", "theta", ",", "list2", ",", "out2", ",", "db", ",", "ds"}],
         "]"}], "+", "db"}]}], "}"}]}], ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.773613903646606*^9, 3.7736139282525234`*^9}, 
   3.774105995329178*^9, {3.7759296695186763`*^9, 3.775929676027943*^9}, {
   3.8262871672243557`*^9, 3.8262871806314106`*^9}, 3.826287697664456*^9, 
   3.826287730713269*^9, {3.8387517751788173`*^9, 3.8387517933305244`*^9}, {
   3.8387521737397947`*^9, 3.838752178331808*^9}, 3.8388094121671686`*^9, {
   3.8388099222460704`*^9, 3.838809925718005*^9}},
 CellLabel->
  "In[325]:=",ExpressionUUID->"7b3b1da4-e36c-4fc0-8249-a8779b3a21d0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"alloc60Nashd", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"NashSurplusSeller", "[", 
        RowBox[{
        "60", ",", "theta", ",", "list2", ",", "out2", ",", "db", ",", "ds"}],
         "]"}], "+", "ds"}], ",", " ", 
      RowBox[{
       RowBox[{"NashSurplusBuyer", "[", 
        RowBox[{
        "60", ",", "theta", ",", "list2", ",", "out2", ",", "db", ",", "ds"}],
         "]"}], "+", "db"}]}], "}"}]}], ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.759187198899643*^9, 3.759187209365341*^9}, 
   3.759193681748773*^9, {3.773318810467305*^9, 3.7733188856155863`*^9}, {
   3.77331897268437*^9, 3.773319012074295*^9}, 3.7741059923518543`*^9, 
   3.8262868933513823`*^9, 3.826287702713035*^9, {3.826287734147859*^9, 
   3.826287734449194*^9}, {3.8387517784107666`*^9, 3.8387517939783654`*^9}, {
   3.83875218208523*^9, 3.8387521863742514`*^9}, 3.8388094148392067`*^9, {
   3.8388099281820364`*^9, 3.838809931613081*^9}},
 CellLabel->
  "In[326]:=",ExpressionUUID->"5faee1ad-bd06-4f26-8e3f-eabe450d69cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"alloc60Kalaid", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"KalaiSurplusSeller", "[", 
        RowBox[{
        "60", ",", "theta", ",", "list2", ",", "out2", ",", "db", ",", "ds"}],
         "]"}], "+", "ds"}], ",", " ", 
      RowBox[{
       RowBox[{"KalaiSurplusBuyer", "[", 
        RowBox[{
        "60", ",", "theta", ",", "list2", ",", "out2", ",", "db", ",", "ds"}],
         "]"}], "+", "db"}]}], "}"}]}], ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.773613903646606*^9, 3.7736139282525234`*^9}, 
   3.774105995329178*^9, 3.826286896663382*^9, {3.826287707610806*^9, 
   3.8262877370894084`*^9}, 3.838749658548501*^9, 3.8387499923741217`*^9, {
   3.83875178171564*^9, 3.838751794722417*^9}, {3.8387521603164654`*^9, 
   3.838752166914876*^9}, 3.8388094167832346`*^9, {3.83880993450222*^9, 
   3.838809937814161*^9}},
 CellLabel->
  "In[327]:=",ExpressionUUID->"85e6c855-fcc6-4d2e-9f53-9a0b6648f1bc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"alloc315Nashd", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"NashSurplusSeller", "[", 
        RowBox[{
        "315", ",", "theta", ",", "list2", ",", "out2", ",", "db", ",", 
         "ds"}], "]"}], "+", "ds"}], ",", " ", 
      RowBox[{
       RowBox[{"NashSurplusBuyer", "[", 
        RowBox[{
        "315", ",", "theta", ",", "list2", ",", "out2", ",", "db", ",", 
         "ds"}], "]"}], "+", "db"}]}], "}"}]}], ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.773613957374856*^9, 3.7736139670183125`*^9}, 
   3.774105998000633*^9, 3.8262869112472596`*^9, {3.8262877142970943`*^9, 
   3.826287740081236*^9}, {3.838751785027651*^9, 3.8387517954344697`*^9}, {
   3.838752138716961*^9, 3.8387521443127375`*^9}, 3.838809419111267*^9, {
   3.838809942150331*^9, 3.8388099463335543`*^9}},
 CellLabel->
  "In[328]:=",ExpressionUUID->"b2a7a5e9-aa57-429c-8c3f-79d634838825"],

Cell[BoxData[
 RowBox[{
  RowBox[{"alloc315Kalaid", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"KalaiSurplusSeller", "[", 
       RowBox[{
       "315", ",", "theta", ",", "list2", ",", "out2", ",", "db", ",", "ds"}],
        "]"}], "+", "ds"}], ",", " ", 
     RowBox[{
      RowBox[{"KalaiSurplusBuyer", "[", 
       RowBox[{
       "315", ",", "theta", ",", "list2", ",", "out2", ",", "db", ",", "ds"}],
        "]"}], "+", "db"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.773613975654372*^9, 3.773613986689047*^9}, 
   3.774106001263757*^9, 3.826286919599327*^9, {3.8262877174393587`*^9, 
   3.8262877438887887`*^9}, {3.838751788826707*^9, 3.8387517964994726`*^9}, {
   3.8387521277331467`*^9, 3.8387521335078354`*^9}, 3.838809426303376*^9, {
   3.8388099507664537`*^9, 3.838809954239999*^9}},
 CellLabel->
  "In[329]:=",ExpressionUUID->"419040bd-bc05-484c-b8b1-2cc09090f5d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot30Nashd", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc30Nashd", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", "  ", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[FilledSquare]", ",", " ", "Medium"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.773319197455701*^9, 3.773319201011505*^9}, {
   3.7733192336448755`*^9, 3.773319275482153*^9}, 3.7733193223986883`*^9, {
   3.774106012138553*^9, 3.7741060124683404`*^9}, {3.7741060553588*^9, 
   3.774106086927697*^9}, {3.7759297080475492`*^9, 3.775929711487607*^9}, {
   3.838809433919473*^9, 3.838809454599764*^9}, {3.838809532400709*^9, 
   3.838809543415871*^9}, {3.838809964310653*^9, 3.838809972277788*^9}},
 CellLabel->
  "In[330]:=",ExpressionUUID->"c78524a8-a5d0-4216-8860-edc41157a877"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot30Kalaid", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc30Kalaid", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", " ", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[FilledSquare]", ",", " ", "Medium"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7736139383347235`*^9, 3.773613949525326*^9}, {
   3.774106018174066*^9, 3.77410601846891*^9}, {3.7741060788433495`*^9, 
   3.774106100380993*^9}, {3.7759297159350557`*^9, 3.7759297186534967`*^9}, {
   3.8388094348234854`*^9, 3.8388094578626933`*^9}, 3.838809549880951*^9},
 CellLabel->
  "In[331]:=",ExpressionUUID->"0ce16e54-d7c5-45aa-b929-95d67bcc6ae5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot60Nashd", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc60Nashd", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", "  ", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[FilledSquare]", ",", " ", "Medium"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.773319197455701*^9, 3.773319201011505*^9}, {
   3.7733192336448755`*^9, 3.773319275482153*^9}, 3.7733193223986883`*^9, {
   3.774106012138553*^9, 3.7741060124683404`*^9}, {3.7741060553588*^9, 
   3.774106086927697*^9}, {3.8388094363195076`*^9, 3.838809463230764*^9}, 
   3.8388095522089777`*^9},
 CellLabel->
  "In[332]:=",ExpressionUUID->"b0f43e64-cc4f-46f3-b365-c00c6900ccf5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot60Kalaid", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc60Kalaid", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", " ", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[FilledSquare]", ",", " ", "Medium"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7736139383347235`*^9, 3.773613949525326*^9}, {
   3.774106018174066*^9, 3.77410601846891*^9}, {3.7741060788433495`*^9, 
   3.774106100380993*^9}, {3.8388094371190615`*^9, 3.8388094709949136`*^9}, 
   3.838809553824998*^9},
 CellLabel->
  "In[333]:=",ExpressionUUID->"4ced7bd5-1215-43c6-9d81-fa7c371c944c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot315Nashd", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc315Nashd", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", "  ", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[FilledSquare]", ",", " ", "Medium"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7736140060489693`*^9, 3.7736140177483015`*^9}, {
   3.7741060226915092`*^9, 3.7741060229963045`*^9}, {3.774106104827447*^9, 
   3.7741061052262087`*^9}, {3.838809438039466*^9, 3.838809474655867*^9}, 
   3.838809556744977*^9},
 CellLabel->
  "In[334]:=",ExpressionUUID->"18c3a032-0f5a-48e9-abb2-36c8eecd2f00"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot315Kalaid", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc315Kalaid", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", "  ", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[FilledSquare]", ",", " ", "Medium"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7736140248312273`*^9, 3.773614034192878*^9}, {
   3.7741060270509825`*^9, 3.774106027339816*^9}, 3.7741061110838842`*^9, {
   3.8388094390955534`*^9, 3.8388094781590214`*^9}, 3.838809560057053*^9},
 CellLabel->
  "In[335]:=",ExpressionUUID->"d685c903-af7d-40d3-b7ea-c4a93e2bc63c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Record the paths for Nash and Kalai ", "Item",
 CellChangeTimes->{{3.773318668938597*^9, 3.773318711120598*^9}, {
  3.8262875812544575`*^9, 3.826287581726415*^9}, {3.826287789174467*^9, 
  3.826287794526821*^9}},ExpressionUUID->"9f85c69f-2d46-41d1-a4c5-\
cf2a15f9a207"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listNashBuyerd", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Max", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"NashSurplusBuyer", "[", 
         RowBox[{
         "m", ",", " ", "theta", ",", "list2", ",", "out2", ",", "db", ",", 
          "ds"}], "]"}], "+", "db"}], ",", "db"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "10", ",", "315", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.759192441013389*^9, 3.759192444885434*^9}, {
   3.759192561767626*^9, 3.7591925618512926`*^9}, {3.7591927710140696`*^9, 
   3.7591927725807643`*^9}, 3.759193694107366*^9, {3.759193935336893*^9, 
   3.759193938024187*^9}, {3.7595868287502174`*^9, 3.7595868311401496`*^9}, {
   3.759663558920298*^9, 3.7596635589984145`*^9}, {3.759664528475685*^9, 
   3.759664528538124*^9}, {3.759664732336237*^9, 3.759664732887087*^9}, {
   3.7741062069408135`*^9, 3.774106239206334*^9}, {3.774106497501645*^9, 
   3.7741064977924724`*^9}, {3.7741066927298484`*^9, 3.774106693742239*^9}, {
   3.774106753729912*^9, 3.7741067538588142`*^9}, {3.774106784245412*^9, 
   3.7741068036863008`*^9}, {3.77410684316669*^9, 3.774106845133539*^9}, 
   3.8262869535005107`*^9, {3.826287819578497*^9, 3.826287819935212*^9}, {
   3.838809591001425*^9, 3.838809613543419*^9}, {3.8388099786068883`*^9, 
   3.838809979149537*^9}, {3.838810504350572*^9, 3.838810533003539*^9}, {
   3.8388107047139497`*^9, 3.838810710920905*^9}, {3.8388108103794713`*^9, 
   3.8388108573011017`*^9}, {3.8388109747977448`*^9, 3.838810978021785*^9}},
 CellLabel->
  "In[354]:=",ExpressionUUID->"7a70fc46-a83e-4031-95f2-a683d4fca2a9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listNashSellerd", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Max", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"NashSurplusSeller", "[", 
         RowBox[{
         "m", ",", "theta", ",", "list2", ",", "out2", ",", "db", ",", "ds"}],
          "]"}], "+", "ds"}], ",", "ds"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "10", ",", "315", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.758126740968025*^9, 3.7581267521750746`*^9}, {
   3.7581268925097923`*^9, 3.75812689322265*^9}, {3.759186878492386*^9, 
   3.759186888950884*^9}, {3.7591869217599554`*^9, 3.759186957794324*^9}, {
   3.759187004059346*^9, 3.7591870224617004`*^9}, {3.7591870768532906`*^9, 
   3.7591870770972233`*^9}, {3.759192357119851*^9, 3.759192372617839*^9}, {
   3.759192564629303*^9, 3.7591925646761446`*^9}, {3.7591927752367153`*^9, 
   3.7591927766447887`*^9}, 3.7591937014888*^9, {3.7591939426426635`*^9, 
   3.7591939451975384`*^9}, {3.7595868340402136`*^9, 
   3.7595868385020247`*^9}, {3.7596635628125677`*^9, 3.759663563453128*^9}, {
   3.759664531975438*^9, 3.759664532069125*^9}, {3.759664734918116*^9, 
   3.759664735402458*^9}, {3.7741062341992135`*^9, 3.774106247484615*^9}, {
   3.774106502411826*^9, 3.7741065026856923`*^9}, 3.7741067001835575`*^9, {
   3.774106760988733*^9, 3.774106809181154*^9}, {3.7741068481827855`*^9, 
   3.7741068495520115`*^9}, 3.826286961439339*^9, 3.8262878326252413`*^9, {
   3.838809617169619*^9, 3.8388096251428146`*^9}, {3.8388099821124463`*^9, 
   3.8388099824090376`*^9}, 3.838810677582433*^9, {3.8388108621322813`*^9, 
   3.838810867083341*^9}, {3.8388109809341598`*^9, 3.8388109840541205`*^9}},
 CellLabel->
  "In[356]:=",ExpressionUUID->"3960b776-7d4f-430f-953e-a60f364c0101"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listKalaiBuyerd", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Max", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"KalaiSurplusBuyer", "[", 
         RowBox[{
         "m", ",", " ", "theta", ",", "list2", ",", "out2", ",", "db", ",", 
          "ds"}], "]"}], "+", "db"}], ",", "db"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "10", ",", "315", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.759186893300825*^9, 3.7591869250902014`*^9}, {
   3.759186968893379*^9, 3.7591869740213847`*^9}, {3.75918700829907*^9, 
   3.7591870243873873`*^9}, {3.759187083806531*^9, 3.75918708398307*^9}, {
   3.7591923658076954`*^9, 3.759192375565519*^9}, {3.759192567088185*^9, 
   3.7591925671505947`*^9}, {3.7591927792935534`*^9, 3.7591927807373705`*^9}, 
   3.7591937042612734`*^9, {3.759193948595559*^9, 3.7591939516126537`*^9}, {
   3.759586841958282*^9, 3.7595868458239393`*^9}, {3.7596635664217553`*^9, 
   3.7596635674857807`*^9}, {3.7596645355530105`*^9, 
   3.7596645355998774`*^9}, {3.7596647372930307`*^9, 
   3.7596647377929926`*^9}, {3.774106251855089*^9, 3.7741062590849705`*^9}, {
   3.774106505305174*^9, 3.774106505615992*^9}, 3.8262869685276375`*^9, 
   3.826287841464901*^9, 3.8387501651871285`*^9, {3.8387504067349777`*^9, 
   3.8387504104079103`*^9}, {3.838809651042226*^9, 3.8388096717389402`*^9}, {
   3.8388099852549734`*^9, 3.838809985654976*^9}, {3.8388108744923487`*^9, 
   3.8388108787724953`*^9}, {3.838810986757891*^9, 3.838811010126132*^9}, 
   3.838811207401697*^9},
 CellLabel->
  "In[386]:=",ExpressionUUID->"036e31b0-e279-4912-a709-26fa3d4a02f6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listKalaiSellerd", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Max", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"KalaiSurplusSeller", "[", 
         RowBox[{
         "m", ",", " ", "theta", ",", "list2", ",", "out2", ",", "db", ",", 
          "ds"}], "]"}], "+", "ds"}], ",", "ds"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "10", ",", "315", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.759186902347582*^9, 3.75918692812868*^9}, {
   3.7591869789067593`*^9, 3.7591870458767014`*^9}, {3.7591870868239174`*^9, 
   3.759187086995782*^9}, {3.759192368642576*^9, 3.7591923788294077`*^9}, {
   3.7591925695960584`*^9, 3.7591925696897955`*^9}, {3.7591927832889433`*^9, 
   3.7591927848083277`*^9}, 3.7591937067728615`*^9, {3.7591939569550056`*^9, 
   3.759193959841025*^9}, {3.7595868485901995`*^9, 3.7595868504123507`*^9}, {
   3.759663569891878*^9, 3.7596635709386663`*^9}, {3.759664538802787*^9, 
   3.759664538865349*^9}, {3.759664739558407*^9, 3.7596647400271287`*^9}, {
   3.774106263567389*^9, 3.7741062706003456`*^9}, {3.7741065092399144`*^9, 
   3.7741065095997105`*^9}, 3.8262869725113926`*^9, 3.82628784867249*^9, {
   3.8387501273480854`*^9, 3.83875013604358*^9}, {3.8387504144467726`*^9, 
   3.838750414678836*^9}, {3.838750579515725*^9, 3.8387505832037244`*^9}, {
   3.838809652498294*^9, 3.838809675138074*^9}, {3.8388099879270105`*^9, 
   3.8388099890999317`*^9}, {3.838810882396542*^9, 3.838810886507761*^9}, {
   3.838811208800398*^9, 3.8388112089927025`*^9}},
 CellLabel->
  "In[387]:=",ExpressionUUID->"31749bf6-9fdf-4693-82b8-1cebe44f2ee6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pairsNashd", " ", "=", " ", 
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{"listNashSellerd", ",", "listNashBuyerd"}], "}"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7581268472817364`*^9, 3.758126861075143*^9}, {
   3.759187096647084*^9, 3.7591871161578903`*^9}, {3.75918718879906*^9, 
   3.7591871892490644`*^9}, {3.759192381752122*^9, 3.759192391273445*^9}, 
   3.7591937116291513`*^9, {3.7591939638788276`*^9, 3.7591939703581595`*^9}, {
   3.774106276551945*^9, 3.7741062841855726`*^9}, 3.7741064850128136`*^9, {
   3.8388096836667814`*^9, 3.838809689170865*^9}, 3.838810718930128*^9, 
   3.8388108918575735`*^9},
 CellLabel->
  "In[388]:=",ExpressionUUID->"01f3d2a9-0f89-4e60-8094-410471907e41"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pairsKalaid", " ", "=", " ", 
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{"listKalaiSellerd", ",", "listKalaiBuyerd"}], "}"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8388097733310194`*^9, 3.8388097884760942`*^9}},
 CellLabel->
  "In[389]:=",ExpressionUUID->"ba26a7ac-b7cd-49a1-86ba-6e1f1d61f53c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"allocationsNashd", "=", " ", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"pairsNashd", ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", " ", "Dotted", ",", " ", 
          RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dotted", ",", " ", 
          RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}], ",", 
     " ", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", "\"\<Nash with non-zero disagreement point\>\"", "}"}]}], 
     ",", " ", 
     RowBox[{"PlotMarkers", "\[Rule]", "None"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.758126868660992*^9, 3.7581268730554533`*^9}, {
   3.758126919954832*^9, 3.7581269252523465`*^9}, {3.758127145592914*^9, 
   3.758127150373257*^9}, {3.7591871206325903`*^9, 3.7591871208135834`*^9}, {
   3.759187215314787*^9, 3.759187221174838*^9}, {3.759187304743941*^9, 
   3.7591873064433765`*^9}, {3.7591924612220316`*^9, 
   3.7591924822254715`*^9}, {3.7591936033921857`*^9, 3.75919361956566*^9}, {
   3.7591939877721224`*^9, 3.7591939907114296`*^9}, {3.7741063096670003`*^9, 
   3.7741063480490017`*^9}, {3.7741066537571692`*^9, 3.774106664428057*^9}, {
   3.774106729609702*^9, 3.7741067377980146`*^9}, {3.774106891090243*^9, 
   3.7741070025963793`*^9}, {3.774107064153125*^9, 3.7741070649096622`*^9}, {
   3.7741074241066217`*^9, 3.774107547002823*^9}, {3.774107669449705*^9, 
   3.7741077429916067`*^9}, {3.7741078785995383`*^9, 3.774107879009282*^9}, 
   3.826286874568381*^9, {3.8388097269073863`*^9, 3.8388097484965515`*^9}, {
   3.838810728746275*^9, 3.838810755667059*^9}, {3.838811269682604*^9, 
   3.838811276329358*^9}},
 CellLabel->
  "In[393]:=",ExpressionUUID->"11fff26c-36ef-4481-b629-76adfa94e070"],

Cell[BoxData[
 RowBox[{
  RowBox[{"allocationsKalaid", " ", "=", " ", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"pairsKalaid", ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", " ", "Dashed"}], "}"}]}], ",", " ", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", "\"\<Kalai with non-zero disagreement point\>\"", "}"}]}], 
     ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7591872383632774`*^9, 3.759187298985626*^9}, {
  3.75919246382686*^9, 3.7591924886571083`*^9}, {3.7591930177208776`*^9, 
  3.7591930488433275`*^9}, {3.7591930886764803`*^9, 3.759193092267074*^9}, {
  3.7591939947072535`*^9, 3.7591939972745457`*^9}, {3.774106355268879*^9, 
  3.77410637613091*^9}, {3.838750520636901*^9, 3.8387505213718967`*^9}, {
  3.8388097310834274`*^9, 3.8388097524062653`*^9}, {3.8388107673468513`*^9, 
  3.838810769522911*^9}, {3.8388112801377068`*^9, 3.8388112846708393`*^9}},
 CellLabel->
  "In[394]:=",ExpressionUUID->"663f73bd-95bb-4db1-97ec-6cc2a1356063"]
}, Open  ]],

Cell[CellGroupData[{

Cell["New origin", "Item",
 CellChangeTimes->{{3.8388100420688334`*^9, 
  3.838810048478463*^9}},ExpressionUUID->"eb062586-1f41-48fd-ae50-\
ee0c5fdcbb79"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"newxaxis", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"db", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "ds", ",", "103"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8388100616759305`*^9, 3.8388101616093097`*^9}, {
   3.8388102017862277`*^9, 3.838810237466773*^9}, {3.8388104069171567`*^9, 
   3.83881041205284*^9}, {3.838810453965746*^9, 3.838810456681239*^9}, 
   3.840453356431696*^9},ExpressionUUID->"5d2b72e6-34a1-4e3e-85fb-\
0a97937a6b76"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQnRSx3p6BQcWBAQxEHLat23Ql8LIqnM/Nui1z8TJ1
OL907tn8J7O14fzllrPf/PfVh/OrJs/TPlZmCOczMvzwu51rDOfn5K1ZG+ts
CufvCMr8pedgDudPihfYt8PYEs4PyBPau57VGs5/90lm1dd/NnB+QWXTpRXX
7OB8B5GXFl1BDgjz1abWp/s6wvlKu94lV5s7wfk1HT77zUyd4XzZbPkwPz0X
OH/Dufldc8Rc4XzjXBWzSUJucP6KnrD6fX8RfL7nPfaT/rjD+btCLawPffOA
8yNcJ17ReOAJ5z/Pf/fE7K4XnJ8h/XNS9UlvON/gdkWNzEYfOP/F1T93Utb4
IsIrUO/242l+cL4OR0oA11R/OL8ts73BzT0Azs/v36y+eDeCf+FSYtdly0A4
f9W1Z9bz1yP4y1PUuCWVg+B8GYEXU9MWIPjcNQ35/qLBcH4R62wWnikIfpB/
z4tkrhA4P1TZ4lVmHYJ/QSRtufMfBP/IsazNOwpDEf6f9rGK8SOCf+C9UcKP
3DA4/ySn95SuRwi+l+PT5g8J4XC+i2XYoY/XEPzE3Y1yC70i4PxvUfpmKicQ
fJbdm+c42UbC+X+ex3ktrEPwv4hw/fi/H8EHALvsyYE=
       "]]},
     Annotation[#, "Charting`Private`Tag$14658#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{10., 0},
  BaseStyle->{FontFamily -> "Times", FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{10, 103}, {0., 10.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.838810228351646*^9, 3.8388102380541177`*^9}, 
   3.838810412589065*^9, 3.8388104572225122`*^9, 3.838810938147764*^9, 
   3.8388110221623454`*^9},
 CellLabel->
  "Out[367]=",ExpressionUUID->"28f6e7dc-6da3-4f3d-9e65-44864d0c7aed"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"ds", ",", "db"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ds", ",", "103"}], "}"}]}], "}"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8388103485757303`*^9, 3.8388103650836706`*^9}, 
   3.8388104217494483`*^9},
 CellLabel->
  "In[368]:=",ExpressionUUID->"22435282-32fd-4d5d-aa5c-7b0ab2aa8498"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"newyaxis", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"p", ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8388103810687866`*^9, 3.838810417661234*^9}, 
   3.8404533548241887`*^9},ExpressionUUID->"394db3b3-2c98-415a-adbb-\
21a72f4830fb"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0, 0, 1], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], LineBox[{{10., 5.}, {10., 103.}, {10., 103.}}]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 20.}, {0, 103.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.838810389825425*^9, 3.8388104181257477`*^9}, 
   3.83881093837016*^9, 3.83881102406135*^9},
 CellLabel->
  "Out[369]=",ExpressionUUID->"c1e9b1cb-4632-4f69-b5a3-b2a9b062e188"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Graph", "Item",
 CellChangeTimes->{{3.838809805526298*^9, 
  3.838809810225521*^9}},ExpressionUUID->"11f1ceb0-f4d7-4611-b6a6-\
307b3560f8c8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
  "frontier30", ",", "frontier60", ",", " ", "frontier315", ",", 
   "allocationsNash", ",", " ", "allocationsKalai", ",", "allocationsNashd", 
   ",", "allocationsKalaid", ",", "plot30Nash", ",", "plot30Nashd", ",", " ", 
   "plot30Kalai", ",", "plot30Kalaid", ",", "plot60Nash", ",", "plot60Nashd", 
   ",", "plot60Kalai", ",", "plot60Kalaid", ",", " ", "plot315Nash", ",", 
   "plot315Nashd", ",", " ", "plot315Kalai", ",", "plot315Kalaid", ",", 
   "newxaxis", ",", "newyaxis", ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Seller's surplus\>\"", ",", "\"\<Buyer's surplus\>\""}], 
     "}"}]}], ",", " ", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Allocations as m increases\>\""}], 
   ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", " ", 
   RowBox[{"AspectRatio", "\[Rule]", " ", "1"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.775929607725087*^9, 3.77592960914927*^9}, {
  3.775929724547117*^9, 3.7759297336129184`*^9}, {3.838809826020678*^9, 
  3.8388098877895265`*^9}, {3.838810429334365*^9, 3.838810433725077*^9}},
 CellLabel->
  "In[395]:=",ExpressionUUID->"735cb964-649b-46d0-94c4-657781e01267"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          LineBox[CompressedData["
1:eJwtkX80FAYAxy87dGGtkh/RlRF3lpxznXM/dt84nDuOY5ySN/PzlN+rRsKV
JJdOyao1TMuvq+aI6QdJpqjQr1vjWY9Wz7ShlGJKN3tv3/e+7/O+7/Pn1yYq
JShWj0Ag+C30P35aPH+mgnz/84MbzLYWJMlwcTF1TZJcw5+f8/qHHC/D9Yz6
Kor8Gl+x1FLVHCnDTVpavIH8Ll+UfPvEYLAMPUUPhG/ih/kDne1zS9gy3GLn
XR6Pf8HPjLRKJxnIcPvoUNpYvI5f9Fk0W14WCtFVQ8lo/FKcGEj/jtsZgj4T
JokYsRYzZa98E7uC4VHs1VEbQMHEzJ6/2+ulUIia1Q+SKfhYNplHqpGiXd/2
2PxhCoZMg3ICyqVg7yHEBfdS8MipN6fvkBSuCa1GOiEVRddY00fkUth5ushC
PRyhM84562wjhcGM9SRx43q4nPE9fFIViFjnORMXExriNswWpDRI4DdUUG1B
puHgUbWp4pQEjIKVPIIzDc1dEbsU+yUgDtMS7wbSYB3s5R4YJsGPqvjbSaU0
7LOspFJ0/hie0B44a+UC69zhhu99/bH5vEZn60iH94BO7+A9MRDGO2HEoUO0
zavb75IYFOKdDa/FdLws18t8/4MYs+GjEZ1JdOyryx6xShHjuNHqtshGOtqb
PN1CjMV4uE2ZUc5yhbEwwjHPQwR/auyUmQ8DQYuCetaVCTF3aGfr41AGMhJz
Pc7vE6JuMj+/Ko6BFoX+IcsEIYjNNZb0AwwQsi5n1W4U4srnY5v8bzDQca9F
XNjnA/svtpfkeW7E7vzdK+xmvUHITXN9yWeCpe+zO5bphfone+dbApgYfdRw
zNHSC+GCku7sL5nQjj8OufNOgBZSU7hRLhMZWdLJ8g4BEkun8+zbmfBuelGc
KRRgUP2NdivXDR5uyo9KAj1xQZu98xaLhRrpuYhu3ibU5cdE/eHLQpDSa8eY
+SZUMMUB77awMGGVfLNrClCetKA6ZbNwJVr0q7oKiN7a9PuR6yw0lo3yPhgA
ps/GPMNE7hB8VUf/LYOHJd/epaWFu8NbfuHJJ7Y8ELxbVisT3WG2anG/speL
8dq8mVaVO/ZMmTg4rebixnbyuTUP3fGeWv3hdDMbu14HL/8znA3y0Fp7z4tu
SKxi63SJbLR9yGoZD3JDVIjNuEUOG6WStL3pE0xILk7eEFWycaDmyY5JMhMO
WYWZ9c/YqNeSrFXpDJDXp8Z1v2Fj+pfYFD0iA6aPQ4NHDDi41FS9/f0xVxD4
dk7LqRxMD6VW+GroGNC7NrIziYMgB97aI/dp6G+q7lPlcCBgGmZnh9DQFVN0
pbaYg7ZO8/t99c5ovLm5dLCRg55l61Sn1U5QKqd9eG85CDO3iDWLo0LBGWKE
GnIxkNfgO+BDwa7x6zYpFlwQIzf3/WTrgChJ8btKNhezz/+KoffYgbPcUUPM
5YJSRavvSVuD/kVbbvUVc3FSYLtkZa81IqcKnx6v5KJBK6KmrliF/feem1M7
uUCymM+JNoVZhyX91YMFT6Lut5Avg1rj69f6lAvFYsOEkmpj9KvUCn99HlIr
eOKvuTp+ZM7gKTMzHkZiBFf9Eqb4r5JIPw/bL/zWVqjV9HTzS99qVqx3XNj/
51/+PAT1
           "]]}, 
         Annotation[#, "Charting`Private`Tag$7338#1"]& ]}}, {}}, {{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          LineBox[CompressedData["
1:eJwtiwtQ0wUAxtcOcHUjnolUCrKEAQlbymMy/H8M9vqvzQccbiQyUtgUYRCv
oRJ4BmHhDRFtKq46XhcUDKQgkOMRCe4SwpAyMMYuFIkYWAqtOKO7vrvvvvvd
931b39bsT6FSKJTwdf+XPrq1GsOWsd0LrLqDRIsCHTR/r3R1CyEn+AO0JgX6
tc21THUvMUCjF47VK3CTlaVyUI8Spau/LykNCgyX3xE9UU0T1OuepvxzCtza
debrBZWVyJz1opakKWA6P5k1p3pG8Dpn333FTwGyZ4PsgcoJNx5mNvlVy3Hb
MfR5u0RvBPn0JGYcOQCejt/XsIcJ+KQddt4Rj5RgmyPbkYUJTu2hY6txkPqn
LG8U7kT12lf5KbpYtI0X5t4KD4fRg0OfZu5HhGtAi10RF8/milmhZXuh+rvy
Wp0cMOR+fH5cL4Xm5sMdLVIezCdmO12cSHyQ4LBt7XgM6Mk/zMpMfBweOpnK
VgswT0YRaYjCEa6v7KlGAHmfNJq/PQqprd+HdOcLYB6eTHJ7OQrqq9vs+e8L
YGtLvvDhH0CGZrRGXi9A6lBJ86M64IQHY6boVwHaRzplJA2oVJneGlEKoV9y
y7WVRKJqKif6gloI96l//JMORuLiPq9AeaYQ3n2BrPo3IqGPyLHNFAnBdDNJ
f/6FC4PTlstPDOv7DPfc8RAuGjuyJl69L4TSu4k3eX8X+jd47ktTiGB3T885
5B6OBzVB5L1kEeiN9i6NljDQERMtPCaCPKm9d9gYBrlWE8I4KcJg+m/zp94M
g3XuW8/JahH0qSLn9tOh2Gx6x0KaRYjRrXD+tOxEQfl32QEqMaoTjl6kFLJh
YFqO6zVimP2yfT+PYWNwcCXFQSsGt3dT2yY6G85rPnJLmRivXy75hn2FhYb0
Au6VRjGKz7bqqlODcVfma//Cohh9wrs9i8ZAsF2KLz3KIaF27DcWjzLQRfuR
OXSKBGX1tYijcQzwKEHdte+R6Ez/rKvxJx/EWSenk6pIlM12vhg8vRV5t8P8
J66TQGsHY3HICzfOWrsHHpNQlszbdld5gH9aIPvERsJY8aneWLoRI9pr5kKq
BBV159q0+S9hWiWx57hKsFebZ7cU6waqoEHWwpaA8oV1T6zVESJq0szVTAn6
mivinitfIcb++jK7QCuBMr7yqXTqMZGwTHc4ULze0+KbSoULRJq5K8C1Yv2/
XcIZSbxDiJY3X8r7aJ3/179Ug4SM
           "]]}, 
         Annotation[#, "Charting`Private`Tag$7454#1"]& ]}}, {}}, {{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           GrayLevel[0]], 
          LineBox[CompressedData["
1:eJwBIQLe/SFib1JlAgAAACEAAAACAAAAIo/9o54e0T5fYeHu/79ZQLcIKR9t
aK8/4hpc8hK8WUDBeK6kKGi/P2XU1vUluFlAxjBxZwZozz9rR8z8S7BZQMiM
0kj1Z98/di23CpigWUDJOoO57GfvP435jCYwgVlAypHbcehn/z+8kTheYEJZ
QEq9B07mZw9AGcKPzcDEWEDNDTYJBF0gQEk+2X5ftFdAQo9FwKdPKEAbTvcH
C7ZWQGUv+g0xDTBAKnSBvLO8VUBNKWXxFkc0QLC1pkM6rlRAstR9dck4OEDW
iqCizbFTQDsSKq8EfzxAdHs11D6gUkBn+5KdpVhAQFCCNjGtk1FAb8bnM69N
QkDMHAxmKJlQQIpaBiX9bERAfKX52gITT0Bjx3tmMWhGQKM4hJnOF01AwQcZ
UWtZSEBF+OaulCZLQDERgJbpdEpA1e5/aRYLSUBg8z0sTmxMQKYMwtOxE0dA
oZ7FHPeNTkBlYTrjCPJEQLOOOtvSUlBAoOKKSVraQkB0uj1QnUxRQB6LhF/F
5kBAv8ql8olbUkAQ1Wg12JE9QGlHOb1pWFNAaOIaC1meOUCcqDG1a2pUQJxd
OStRVjVAkfO9gXB3VUDIMQj5PSIxQOaqdXZoclZA6KhSTLxsKkDERpKYgoJX
QPjJbTvr6yFAAU/a4o+AWEAgEFvSAfcTQABBtgGgeVlAwMBvkv+X8T8DAAAA
AMBZQAAAAAAAAAAAQRHm/A==
           "]]}, 
         Annotation[#, 
          "Charting`Private`Tag$7500#1"]& ]}}, {}}, {{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.011000000000000001`], 
          AbsoluteThickness[1.6], 
          GrayLevel[0], 
          Dashing[{0, Small}], 
          Thickness[0.01]], 
         LineBox[CompressedData["
1:eJztkv0vlAEAxy+c6C6vqRMLN70xU1G4uZ7vPee6t8fSXamF0pvTllOua5Ve
VKOVt8hLpi1+iE6rlHPeomfoZbIjIrF5KVHHrFYxXbXU+hf6re/22Wef379e
exMVBywYDIZijt+e2/CLexf4NpI0i5dWJEHv2Z/Dq+4lJkbSz5Ta+CF2W7WH
beEYkayJRUz/OiAj17Vs8CNRvFKlMY6thwOv6tHG+GmihCM10BHBoC/r8kM+
mAnKfnq7TyQPkl31s273GRjRbxONu4Ri+GtBd99BSzxRPbAYLeVjTaPOw8LD
GnQX81Uhk4Bni1rf2GkD1fVPDgneAKoqzT5nWThXw44vqwUYBDtnv48dnG5q
G3IEApQ0HriDgw7g1q/e104LEOxkfautwRGtlaNvi4NISATXrF6znfH8h38X
s5wEJ45ZoIleBPuAqe9D9kLULovZXVrhghGXCMNAkhDvpWv18TOLoebuNGV2
CkEflSg6SA6+sKbY2tVh6MxSHOvPcMVQ6LxLP06HIda5YzKrZymWsA57phrD
kBKjLmgadge3KFDdJRYhOCoq+uFdb5iVpxKab4iRYqyJSLjvg9u7fa98EEjR
3h244hl/Daylmz+/OSLDhqIT2ZfnB6DRnOoZqZCj961MXGJYj6DUZF7djBy0
naFDKw+G3eThl6JECqTXxQDlEx6ys5NsljRTaNL4no9byce4e/tk0zQFd//C
jDY1gax59oxVTuFgvSPrREbg9OzxHW6ccOQWV5i29glwKr97Io8VjhCma35W
D4kGLbfv2xQFbfqhetNjIarSTLNkKwVdWwq1SxeG1KfHyIWZFMy5GysHzoqw
PM2r3CCjIBzlLldKN0Fr1LBVP+WwlIZwqphi5Pil6d10crQknlS914vBp2vX
3ZPLEeXsWTQYKYHSkbg6NCbDlshM25QJCSyfu/krk2XgmmhHQ5IUC/zyzl23
leHPY2kprP/6f//vf9m/AHmLjTY=
          "]]}}}, {{}, {}}}, {{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.011000000000000001`], 
          AbsoluteThickness[1.6], 
          GrayLevel[0], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGBwAGIQjQ6EXMVtq/7et1+VKAam97R++B+0V9RhH5ROKr17
2jBSxSEFSi+ZeyvtmZ8unA7rYvc8cd0ITuspNu403WXmoAOlNTZOjQz1s4LT
32ZOn7Boqq3DFygtZ39zTpynA5wW0lruXrrEEU4vucEX9eCuk8MiKB0jKHy6
/LsznG75+/kj32cXhzYo3bXl0enMS64OPVDa5Puas2bT3eC0g7HbNm5ndwcn
KP1B921IynV3hxdQOofzVM+iUA84fYNzqzT/fg+HO1A6beuGS7dEPB1SoHTG
tFQuhQgEnXB2h8GTTgQtUOYYKbkaQZ/hfnBo/h5PhwtQmhkUCQdG6VGaPjQA
kjYTAg==
          "]]}}}, {{}, {}}}, {{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.011000000000000001`], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1], 
          Dashing[{0, Small}], 
          Thickness[0.01]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGCwA2IQDQEqDhBaxMHgBd/L34c1HT6Uzf3/MsLGIeT08Zdc
W/QdXtjklx9wd3KQa/kXqLjTyOHs1ls5rRdcHEL6JE9dqjV12Na7Y7b4ZDeH
OZaObEwaFg7Llh/kmnvb3WFL/HWvi9utHPS2N20QuuDhkCQyxzFN19bBs1JI
qrvN0yGt5tuaux32Dqm7X8xW5vVySD7fulTlqYMDf3eHZWOulwOvF4vVjR+O
DuvfTEjpX+flcN8le0PHfyeHQBmF6aVXvRz2S0+2Nfzp7LBwV7SrxjMvB60b
y46cfOri4LSwwOPwYy8HI8nZYe5HXR0mVO2+eeSCl4NYzZI5c6a7Oax7k1Zr
ut7LYZXDJoNdMe4OddoX7x1u8HLwjmN/3ifi4fA5L+r4DTcvh2//1nBz7Pdw
CDtYe2Apk5dD9hymaYIxng7cM4JZDLZ6OnjOdwyZ9trTQXHy+fMR8Z4ODaa5
Ag1Ad39YYn/hMaOng/7U2+u3P/Ry6Ax4pV0z18OBGRzO3hC6YZQ/yqctHwDP
y98r
          "]]}}}, {{}, {}}}, {{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.011000000000000001`], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGCwA2IQDQEqDhBaxOGCrJLkqf86DmfAtJJDl7691My7Rg4i
8XUmRru1HboCsjV/vTOD0oYOZQf35jFusnIoAdOmDm/8XimoqttBaUsHEeME
TZMVDg4aaQeCMgJsHFLcbxyOkXByONK3oX2ngb1DSe81r8OpzhD6qYPDF6Ub
C6wmuUBoISeHVVdO9Mya7wqh5Z0d1Hpm22/sd4PQ/C4O686JLbVKcXdYA6Kf
uDjkLU2acFvOA0LPc3WYpi5XKH/QA0I7ujnMqWxcVe7jCaHPuDnwbBP9aH3I
E0I7uTtMEf3otlrZC0Ivdnd4U5Ad+LbQC0J/dHe4Usx0W3idF4TW83DYtM04
Reaml8MGEB3p4cBw68GGj5+9HP7cBNLFHg4zlvG45/73gtD1Hg7M4HD2htAN
o/xRPm35APOI2lc=
          "]]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                EdgeForm[], 
                DiskBox[{0, 0}]}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[10]], {{{18.590413231545938`, 54.397000821219635`}}, {{
          18.590413231545938`, 54.397000821219635`}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledSquare]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[10]], {{{21.491497641791582`, 45.1491579676762}}, {{
          21.491497641791582`, 45.1491579676762}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                EdgeForm[], 
                DiskBox[{0, 0}]}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[10]], {{{25.961771169753753`, 25.961771169753753`}}, {{
          25.961771169753753`, 25.961771169753753`}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledSquare]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[10]], {{{26.69533435948093, 21.69533435948093}}, {{
          26.69533435948093, 21.69533435948093}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                EdgeForm[], 
                DiskBox[{0, 0}]}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[10]], {{{33.269634413361146`, 58.19114006105012}}, {{
          33.269634413361146`, 58.19114006105012}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledSquare]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[10]], {{{35.94409871301114, 53.36375100208658}}, {{
          35.94409871301114, 53.36375100208658}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                EdgeForm[], 
                DiskBox[{0, 0}]}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[10]], {{{41.71248801272672, 41.71248801272672}}, {{
          41.71248801272672, 41.71248801272672}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledSquare]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[10]], {{{43.24690398985088, 38.24690398985089}}, {{
          43.24690398985088, 38.24690398985089}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                EdgeForm[], 
                DiskBox[{0, 0}]}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[10]], {{{51.5, 51.50000000000004}}, {{51.5, 
          51.50000000000004}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledSquare]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[10]], {{{54.00000000000002, 49.00000000000002}}, {{
          54.00000000000002, 49.00000000000002}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                EdgeForm[], 
                DiskBox[{0, 0}]}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[10]], {{{51.50000000000002, 51.50000000000002}}, {{
          51.50000000000002, 51.50000000000002}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
             "\[FilledSquare]", 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}, Automatic, 
           Offset[10]], {{{54.00000000000002, 49.00000000000002}}, {{
          54.00000000000002, 49.00000000000002}}}]}}}, {{}, {}}}, {{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[1.6], 
           RGBColor[0, 0, 1]], 
          LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQnRSx3p6BQcWBAQxEHLat23Ql8LIqnM/Nui1z8TJ1
OL907tn8J7O14fzllrPf/PfVh/OrJs/TPlZmCOczMvzwu51rDOfn5K1ZG+ts
CufvCMr8pedgDudPihfYt8PYEs4PyBPau57VGs5/90lm1dd/NnB+QWXTpRXX
7OB8B5GXFl1BDgjz1abWp/s6wvlKu94lV5s7wfk1HT77zUyd4XzZbPkwPz0X
OH/Dufldc8Rc4XzjXBWzSUJucP6KnrD6fX8RfL7nPfaT/rjD+btCLawPffOA
8yNcJ17ReOAJ5z/Pf/fE7K4XnJ8h/XNS9UlvON/gdkWNzEYfOP/F1T93Utb4
IsIrUO/242l+cL4OR0oA11R/OL8ts73BzT0Azs/v36y+eDeCf+FSYtdly0A4
f9W1Z9bz1yP4y1PUuCWVg+B8GYEXU9MWIPjcNQ35/qLBcH4R62wWnikIfpB/
z4tkrhA4P1TZ4lVmHYJ/QSRtufMfBP/IsazNOwpDEf6f9rGK8SOCf+C9UcKP
3DA4/ySn95SuRwi+l+PT5g8J4XC+i2XYoY/XEPzE3Y1yC70i4PxvUfpmKicQ
fJbdm+c42UbC+X+ex3ktrEPwv4hw/fi/H8EHALvsyYE=
           "]]}, 
         Annotation[#, 
          "Charting`Private`Tag$14658#1"]& ]}}, {}}, {{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1]], 
         LineBox[{{10., 5.}, {10., 103.}, {10., 103.}}]}}}, {{}, {}}}}, {
    PlotRange -> All, AxesLabel -> {
       FormBox["\"Seller's surplus\"", TraditionalForm], 
       FormBox["\"Buyer's surplus\"", TraditionalForm]}, PlotLabel -> 
     FormBox["\"Allocations as m increases\"", TraditionalForm], 
     BaseStyle -> {FontFamily -> "Times", FontSize -> 14}, AspectRatio -> 1, 
     DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, 
     ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotRange -> {{0, 110}, {0, 110}}, 
     PlotRangeClipping -> True, 
     PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}}], 
   FormBox[
    TagBox[
     GridBox[{{
        FormBox[
         TemplateBox[{"\"Nash\""}, "PointLegend", DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small}], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small}], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small"}], "}"}], "]"}], ",", 
                    RowBox[{"Thickness", "[", "0.01`", "]"}]}], "]"}], "}"}], 
               ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
               RowBox[{"Joined", "\[Rule]", 
                 RowBox[{"{", "True", "}"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}, {
        FormBox[
         TemplateBox[{"\"Kalai\""}, "PointLegend", 
          DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
                 "}"}], ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
               RowBox[{"Joined", "\[Rule]", 
                 RowBox[{"{", "True", "}"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}, {
        FormBox[
         TemplateBox[{"\"Nash with non-zero disagreement point\""}, 
          "PointLegend", DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small}], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small}], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small"}], "}"}], "]"}], ",", 
                    RowBox[{"Thickness", "[", "0.01`", "]"}]}], "]"}], "}"}], 
               ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
               RowBox[{"Joined", "\[Rule]", 
                 RowBox[{"{", "True", "}"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}, {
        FormBox[
         TemplateBox[{"\"Kalai with non-zero disagreement point\""}, 
          "PointLegend", DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
                 "}"}], ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
               RowBox[{"Joined", "\[Rule]", 
                 RowBox[{"{", "True", "}"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}}, 
      GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
      GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7759296105794477`*^9, 3.7759297347032614`*^9, 3.8262870794271975`*^9, {
   3.8262871725377398`*^9, 3.82628719452831*^9}, 3.826287271647133*^9, 
   3.8262879203219175`*^9, 3.8262879658737755`*^9, {3.8262883329424295`*^9, 
   3.8262883863947325`*^9}, 3.8266592233165517`*^9, 3.8387500074968233`*^9, {
   3.8387500497073193`*^9, 3.838750057545593*^9}, 3.838750091833458*^9, 
   3.8387501605404663`*^9, {3.838750528126623*^9, 3.8387505294056873`*^9}, 
   3.838750609107723*^9, 3.8388064762650213`*^9, 3.838809888220647*^9, 
   3.838810007262519*^9, {3.8388104343012094`*^9, 3.838810461586686*^9}, 
   3.838810518340699*^9, 3.8388107731953535`*^9, 3.8388108976024165`*^9, 
   3.8388109385550556`*^9, 3.83881102522906*^9, 3.838811219635336*^9, 
   3.8388112898703065`*^9},
 CellLabel->
  "Out[395]=",ExpressionUUID->"0d2ac669-809e-4662-811e-1be62333f858"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Another representation of bargaining paths in the (q, utility/cost) space\
\>", "Section",
 CellChangeTimes->{{3.8404532798162365`*^9, 
  3.840453309886901*^9}},ExpressionUUID->"3868a881-cbc1-4b3b-98d1-\
841558949e22"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"base", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"u", "[", 
       RowBox[{"q", ",", 
        RowBox[{"list2", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"out2", "[", 
         RowBox[{"[", "4", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"c", "[", 
       RowBox[{"q", ",", 
        RowBox[{"out2", "[", 
         RowBox[{"[", "6", "]"}], "]"}], ",", 
        RowBox[{"out2", "[", 
         RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"q", ",", "0", ",", "5"}], "}"}], ",", " ", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"\"\<u(q)\>\"", ",", "\"\<c(q)\>\""}], "}"}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8404533695865107`*^9, 3.840453477626675*^9}, {
  3.8404545927300577`*^9, 3.840454593472067*^9}, {3.840454708652441*^9, 
  3.840454709042205*^9}, {3.840454902573708*^9, 3.8404549266781363`*^9}},
 CellLabel->
  "In[196]:=",ExpressionUUID->"cb7591d4-9db9-443d-a17b-0e2ef4f3fb38"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVxXs8lPkCB2B3YRrGW21yG7LuWbJabcPve9guxy25JFQYzLxbCFEtKckl
J8pGQmlCq49yiVRHS0JLjThliGI3kdTEZlwKiXPOH8/n0eMe8AiVkZKSov/n
/xce4ypYhcTbi60lV7z4B8lDEdvFh+1LLFedlCnZPkuWWu+fZLN/JglVoQH/
CpMB89ydm8p90UQ1J0E/87giCh9k6sqzfyFh7kOyf42pwPxjyJkl/nGyr8x1
g9y4Kv5kXl5c6E0iq6sPVo92shBmFxv+WTednHZ4qtVhshK3ugevTjtmEA/j
u7+n3lmF+f0uAxL+WaIn4lz7ZLUaP3X8+u2n3nPEcVK0duHrGoi+0DkTuvnk
ahTHXazExqE2HcuP1QUkTXJypVwxG2uyu9vHHS+R4oJ3jdkb9MA1hewHvoCY
VLtpr92pjyPlKnWTvcVk8pJrT1uMART7h4zGdcvI6ghJcOh2Y/Q9aIgde1dG
Ghpf5O9pMcb10ryWD9XXCSN7UHXCxgRu0W4BYsdyIkrq99L+xhS5SvdyR/lV
5OIvrMg5oRnULz2SkfTWkGVc+YnD0t+hSCiI+qBbRzwy38sfDFuP6bzbpq8y
6kh39uGAjZfWYwu/fbhrro7YnGYkVravx5jsZ+97onvkfGRFVLmJNWzt3H5M
T6snvn1LjwyHrPG0akHG6GMj2WKtfIy7xQbHheZOVgEtxLySkaj15gdUVqX3
h1kIyXZOVEqtgAOxujjDKUhIxhqzT8g3cWB0yMneOEdI+MWuPZwhDq5wVIqG
54RkSHMoJ8DADuceZ/D8/mgnK2z9bxy9ZodDw2clW3d3EIu+Ldudy+whUGk/
ydr8lLw81lG42w3gk2f5Y9EissLSt83a0AERIybDtZUvyMFNYz2CqM1Q1ks2
emU7SK4UHChVKN+GM2rtpkWBw0SgGfj8cbQzuP1ejbJP3hJrD/3X8Q5uiPoj
mXvASEz0R7IWFCLcUR3J8Fz9z3Eif7Os1/P8DhTF7xdb+kwQyalmpQttHkgS
LOyYHpOQrjhqpdVLT0iJBlEfN0Wys2+Fa/7lBcMY3hEv0xnCfCSV8fZvb7yZ
ubBTpeET0fFf5l8zshNOI/sSzkXNEpNARtbl9z5we5NlpqMzT8zKrup3vd4F
cQs38VHFF/LuW7bL5RZfWLCeazsGfCV2Jvy9PTV+UCYzQQNTiyQxUkW0LtMf
W8f9Put7S6Fc5PyiPWY3+ppDpP3MpdEcvSib7LkHt0893MuekUZrsGVvsO5e
8ORjBzs7ZTAZLrobPbsXwdHxtxkFsphZXjGT2xiA7/hmnS5BcqgvNdXpJ4H4
j7q5SuxGeZQy37qGlQbi98qki+ayCkiaXhgrlwtCvLSp+5M/FXBbeu20+89B
UB6I2xZRq4gNcuHC68IgjJTq5QiOLgOT+bdkkwEXOcYacnXeSujxa/qwIpmL
rAJeWxBbGVa75mZ5A1z45ezpZIwqo37BiDNlFYzZn36bE9xXQWysxeYbmcEY
HnE40pzGwPc1jf+2HwpGsZ2VZkfQcqwZuBM5xAlBRUosi7+OCcuzvOrsrBCk
eQc7y84w4dMU1NT6OgQ2A0VlaR2qKBfWqH20DUWeycWKDmc19L0f0IhOD8Xx
B5l5znVq0KPHeM9ehcJV0/s3oQELLJuc2mZrHv4R0ebPSmeBo5st8DzBg0CL
a/BkhgUDzVfMa908GLRcy3XzV8ewXOr5ej0+stY1m3bdV4fDxHOPsjA+eFNy
zx6bUhCIv/dGAx/c6kl2+lkKjMMOSU8VaYQleS44/UqBeUt2hZYSjVjP2l5G
NoWvygP5fGUap2Ziz2TlUphX7juxyKBRuXHuy4VCCg26Ri1m6jTmmpael96g
cNrqACNZi0ZWFyPzYRsF/XcyD82saBSUhNOpjylwutL6Y9fTKInpdNzWTiFN
13O00ZrGnVVZ8+2dFFLuNvd7bqAx4EfRoh4KxbkWtvGbaBgNazgODVNY9jLh
QdtmGpa1cTpXRyjEGX6jzdpK48eU/rnQUQrl0swIv200XIwKb74XU4gyWDM+
5kQjej9bRyKhUODcHcByp3GUc2KuZoqCNZIC/HbQSFk+1B0zQ2FqU75niQeN
vKqS07OzFIKWFDVsvGkUJ8rx781TSC3iihN20rixI9Th6AKF1iWzm60+NGr1
W7XtFylcTA3dp+pL4/6U4dzSEoUfitU0dvnR+C+CvvVa
          "]]}, Annotation[#, "Charting`Private`Tag$21632#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVxXk8lAkfAHCMtA1yPLW5YvSOW0VlN8LvF4mYLGEebK11jnIUr6PCkhIq
kuSK5NyVO+RFodzjPkJLIVeJ5Jgilvd9//h+vrIOF88483BxcXn8z/9P/cOB
T90pQJcY3U3Plp/TaeijMUiaDSi/b5xlCuvAVlPNdRrtPNz82yHPiW0JO2Of
FVOHvIHaH82rqeUIqXVRMttoV2DmY8z2tzUeoLrgFL3FCoZ1N+P96yM+8Hbn
o82NwVCwa60ecAwNAHcdX49vMpGQTVakeBmGQWn/WNaK/h3waijjrF6KhO9u
jJFF1l2IeX2rJvZNFJzouCf3dTAWdCwKGQsF96Fv3TXui0wSWBo1Oc95PQK/
Zmm1hZJkGHM2PWdS/Bgk7ve3zeungFz65fCfD2eAgzJSPrHSQKaPUZpgmw2X
8/krlwYzYDdtb8UPivmwffi9wrxMLpCJNkcTmsthqO6F79yHXEjc135ws+cZ
PMlJrP9U8gSIXUP5SWMVYOptajernw8C5Qtq6tQqiN9RFT/DKoJgifF0m6ga
EE1p4VkcfAq6rOo5P3oDpLPTvD7JVELOcfMsU6UuWEksVx69Uwn1Ds6rSt+6
4CSrbaJ3rRJkzdJ9XBy7YY7yzaqqrwr8d3xOKdDogaM6plqR4c9BozvjPymT
vdBdtMGjsFALFqr0rJQLAxDMVjVWt6uHQ08czXMF38FfJRXyeQ/qIXf22qOf
ot9Bb6IeRa69Hjwp4seChEaBzrJ+LqbZAARdykCcOgZsyo0DXEQjGFoS5SLE
OPyoMyza1dQEquoqofkaE1BYFDnsfoANZ6+LPWiomoFZ0dk7xvZs2DwQLvKa
6wMo+BnrKsaxQXar7ZqK4Qd4rM2fPrHGBu4Lxsdy+z9AbOsdF9vGNrhgGaEw
vvQR/CbuLhqe7QApbdEXgtpzkMbfdl3EoBvyx8mlmeAvwIKepDnvPhh1zeTd
l84BzymlibLCN2AjI3C+KZALqbI3FEaPjoH2eNjFmJDtGC3cppz++wT0BjWf
PNi0Ex2GLWsp7dMwEjypr1lMoFfjDYeLCrOwuVr5ZgrEsOSSgIXYqXlItMyI
iGiVwvQAt1k18gtEQjR9bIuGoWkb5itzi5Bt31axfPdfyNU3hs+vLoOKfxdz
QU0e5X1cLlsqc6Di4RWOvIoSTnISmPwvvoK+ZEsXQ0gVjacuBMV6rULp/HFr
itlBNJ2MUZGW/g5StU4rj39Rx9l6h5CWgnXwrU+Wuj9zCA+IDOzVt/sH5Lx3
P8wrOoJU4NiPLG/CJaG6PQPOP6HhvO23fVZc2LFJiR08fRSHXjlx26py46FD
/qvcWlpYHtHwG43DjYprGpfChbXRZZvvWGcnDw4m59/skNBFR++AcoFkCi6f
Waxl8yEeZKl0Mux5UaKBynDlOo5doqr8vprb0GgpbL5vlx5WF4Y+VKXw4cyp
K1+/SupjALeyWftbPrTl/qezVPcEUkeuGnmWbUc33msG2fYGOJUjG5cW+APu
Lsuv+dv3JMYpivNWWu3An8UDLR7kGGJMskuzPY2KPZTfZYaajdA27lynwAwV
uz8fVhqcOYWrJ7LX0mr4UY3XtlpbzgQnpvQuvwoXwGmbAfdpcwZm6KhLdtgL
or+d+EBpymksCPMVYe3fiX9FvmRIDphiuJWjCYWzE4OGpqUb+cxQYyQ9N7xD
CEvGbliul5hhotLDgg4TYaT/e7Llo4U5BtdFJZpUCqMij95QybYzeFrSKptN
F0EFjbrbkc/O4HHP5l9FIkWwOLkrIeKcBaZJOdDbOSK4g6f3XPsuS6TX/xlv
+qso8glMJs2/tMSY/a+Ue2tEsc/VOvKWhxW6LPP2tCoTmM4fUtCrxESHkiVa
5F0ChUQPv/EZZqJ7qMWG8T0CNcfuQew7JvpalA0K3CeQqr3MLhpnYgTHNzom
nsBStQqzTzNMLNRcW09IJdBEfo+Y0woT115uDeTkEUhUdMedFSQxplcgqqGZ
wBZ17mPngcTkTA/Xm60EOron6d7WIzHTp1PfqI1Ac21uVoEBic9+jPne1kmg
momm/JIJiSO2hGvfawJfrUn/FmRNosKEuP77CQJDPts9TfYiUa3sqnTWFIFT
nkd4an1I1AobXnOeIfC5da3fhD+JDIXU4o+zBC7RlzpU/yDR240mvbhIYHV3
2pGXt0gM1L629nSZQGb7eu50FIlhgu/7fTgEqhZxnxC4R2JiUebt1VUCbed5
p8kEEjNCeFlV3wmMV96aD0omMc/cWS9wg8Bh0VSJrFQSy/Y17dXdJDBtz1s3
9mMSa5bl17a2CLz95MX4l0wS/ws2OC0I
          "]]}, Annotation[#, "Charting`Private`Tag$21632#2"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
     BaseStyle -> {FontFamily -> "Times", FontSize -> 14}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 5}, {0., 194.82325413941155`}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"u(q)\"", "\"c(q)\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "Times", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "Times", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "Times", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "Times", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.8404534782068505`*^9, 3.8404545943566656`*^9, 3.840454709480325*^9, {
   3.8404549211976156`*^9, 3.84045492746059*^9}, 3.840532015369088*^9, 
   3.842452029317244*^9},
 CellLabel->
  "Out[196]=",ExpressionUUID->"34bc22a0-5ffb-40ac-bc6f-f626aa423523"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Record the paths for Nash and Kalai ", "Item",
 CellChangeTimes->{{3.773318668938597*^9, 3.773318711120598*^9}, {
  3.8262875812544575`*^9, 3.826287581726415*^9}, {3.826287789174467*^9, 
  3.826287794526821*^9}},ExpressionUUID->"59af3785-b408-49a5-80dc-\
32ff6701458c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listNashq05", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Min", "[", 
      RowBox[{"4", ",", 
       RowBox[{"qtradedNash", "[", 
        RowBox[{"m", ",", " ", "0.5", ",", "list2", ",", "out2"}], "]"}]}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "10.8", ",", "315", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.759192441013389*^9, 3.759192444885434*^9}, {
   3.759192561767626*^9, 3.7591925618512926`*^9}, {3.7591927710140696`*^9, 
   3.7591927725807643`*^9}, 3.759193694107366*^9, {3.759193935336893*^9, 
   3.759193938024187*^9}, {3.7595868287502174`*^9, 3.7595868311401496`*^9}, {
   3.759663558920298*^9, 3.7596635589984145`*^9}, {3.759664528475685*^9, 
   3.759664528538124*^9}, {3.759664732336237*^9, 3.759664732887087*^9}, {
   3.7741062069408135`*^9, 3.774106239206334*^9}, {3.774106497501645*^9, 
   3.7741064977924724`*^9}, {3.7741066927298484`*^9, 3.774106693742239*^9}, {
   3.774106753729912*^9, 3.7741067538588142`*^9}, {3.774106784245412*^9, 
   3.7741068036863008`*^9}, {3.77410684316669*^9, 3.774106845133539*^9}, 
   3.8262869535005107`*^9, {3.826287819578497*^9, 3.826287819935212*^9}, {
   3.8404535333232846`*^9, 3.8404535379298897`*^9}, {3.8404536258767185`*^9, 
   3.8404536285167513`*^9}, {3.840454125398984*^9, 3.840454130614991*^9}, {
   3.8404541696728363`*^9, 3.8404541730813107`*^9}, {3.8404546376978545`*^9, 
   3.8404546551691756`*^9}},
 CellLabel->
  "In[197]:=",ExpressionUUID->"56d57172-d3a5-4ced-b07f-db7a3fd8539b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listNashqSmall05", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Min", "[", 
      RowBox[{"4", ",", 
       RowBox[{"qtradedNash", "[", 
        RowBox[{"m", ",", " ", "0.5", ",", "list2", ",", "out2"}], "]"}]}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.77410656606936*^9, 3.7741065809498463`*^9}, 
   3.8262869583113885`*^9, 3.826287828321601*^9, {3.8404535448121634`*^9, 
   3.840453546755987*^9}, {3.8404536310047965`*^9, 3.8404536326528273`*^9}, {
   3.8404541330871105`*^9, 3.840454136983176*^9}, {3.8404541749599314`*^9, 
   3.8404541774489746`*^9}, {3.840454658002285*^9, 3.8404546621532965`*^9}},
 CellLabel->
  "In[198]:=",ExpressionUUID->"b1cb3d70-9033-434e-ae35-50c7d7d80bc1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listKalaiq05", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Min", "[", 
      RowBox[{"4", ",", 
       RowBox[{"qtradedKalai", "[", 
        RowBox[{"m", ",", " ", "0.5", ",", "list2", ",", "out2"}], "]"}]}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "0.5", ",", "315", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.759186893300825*^9, 3.7591869250902014`*^9}, {
   3.759186968893379*^9, 3.7591869740213847`*^9}, {3.75918700829907*^9, 
   3.7591870243873873`*^9}, {3.759187083806531*^9, 3.75918708398307*^9}, {
   3.7591923658076954`*^9, 3.759192375565519*^9}, {3.759192567088185*^9, 
   3.7591925671505947`*^9}, {3.7591927792935534`*^9, 3.7591927807373705`*^9}, 
   3.7591937042612734`*^9, {3.759193948595559*^9, 3.7591939516126537`*^9}, {
   3.759586841958282*^9, 3.7595868458239393`*^9}, {3.7596635664217553`*^9, 
   3.7596635674857807`*^9}, {3.7596645355530105`*^9, 
   3.7596645355998774`*^9}, {3.7596647372930307`*^9, 
   3.7596647377929926`*^9}, {3.774106251855089*^9, 3.7741062590849705`*^9}, {
   3.774106505305174*^9, 3.774106505615992*^9}, 3.8262869685276375`*^9, 
   3.826287841464901*^9, 3.8387501651871285`*^9, {3.8387504067349777`*^9, 
   3.8387504104079103`*^9}, {3.8404535692765174`*^9, 3.8404535707448916`*^9}, 
   3.840453635556878*^9, {3.8404541421192865`*^9, 3.840454148255808*^9}, {
   3.8404541794880123`*^9, 3.8404541816177998`*^9}, {3.8404546667304525`*^9, 
   3.840454671697475*^9}},
 CellLabel->
  "In[199]:=",ExpressionUUID->"5a0c095e-5db3-4ecf-a1b0-d3b51b8f75cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listKalaiqZero05", "=", 
   RowBox[{"{", "0", "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.840454236817046*^9, 3.8404542423772316`*^9}},
 CellLabel->
  "In[200]:=",ExpressionUUID->"7de92d07-fea8-4a48-8af7-1f90501afd05"],

Cell[BoxData[
 RowBox[{
  RowBox[{"mstarsol", "[", "thetax_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "thetax"}], ")"}], 
    RowBox[{"u", "[", 
     RowBox[{
      RowBox[{"out2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"list2", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"out2", "[", 
       RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "+", 
   RowBox[{"thetax", " ", 
    RowBox[{"c", "[", 
     RowBox[{
      RowBox[{"out2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
      RowBox[{"out2", "[", 
       RowBox[{"[", "6", "]"}], "]"}], ",", 
      RowBox[{"out2", "[", 
       RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.8404537916932635`*^9, 3.840453809902053*^9}, {
  3.8404538697697964`*^9, 3.840453983702073*^9}, {3.8404540220148115`*^9, 
  3.8404540237408466`*^9}},
 CellLabel->
  "In[201]:=",ExpressionUUID->"e1fe46a0-c21c-46ae-8bce-74902bf26e5c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listp05", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Min", "[", 
      RowBox[{"m", ",", 
       RowBox[{"mstarsol", "[", "0.5", "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "10.8", ",", "315", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.840454046807248*^9, 3.8404540507413216`*^9}, {
  3.840454085270115*^9, 3.8404541118866615`*^9}, {3.8404541507754545`*^9, 
  3.840454160591973*^9}, {3.8404541923851995`*^9, 3.840454208200553*^9}, {
  3.840454250192028*^9, 3.8404542739548535`*^9}},
 CellLabel->
  "In[202]:=",ExpressionUUID->"222dca29-d62b-4af3-8afc-984224b26a9c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listpSmall05", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Min", "[", 
      RowBox[{"m", ",", 
       RowBox[{"mstarsol", "[", "0.5", "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "0", ",", "10", ",", "0.5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8404543301249714`*^9, 3.840454353811387*^9}},
 CellLabel->
  "In[203]:=",ExpressionUUID->"a8491441-b20d-4a70-9f75-ba2274646d62"],

Cell[BoxData[
 RowBox[{
  RowBox[{"listpK05", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Min", "[", 
      RowBox[{"m", ",", 
       RowBox[{"mstarsol", "[", "0.5", "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "0.5", ",", "315", ",", "5"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8404544359280033`*^9, 3.8404544573653345`*^9}},
 CellLabel->
  "In[204]:=",ExpressionUUID->"de246830-0e91-40dc-aa33-3572351f39f9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pairsNash2", " ", "=", " ", 
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{"listNashq05", ",", "listp05"}], "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7581268472817364`*^9, 3.758126861075143*^9}, {
   3.759187096647084*^9, 3.7591871161578903`*^9}, {3.75918718879906*^9, 
   3.7591871892490644`*^9}, {3.759192381752122*^9, 3.759192391273445*^9}, 
   3.7591937116291513`*^9, {3.7591939638788276`*^9, 3.7591939703581595`*^9}, {
   3.774106276551945*^9, 3.7741062841855726`*^9}, 3.7741064850128136`*^9, {
   3.8404542913867903`*^9, 3.840454315825194*^9}, 3.84045435771701*^9},
 CellLabel->
  "In[205]:=",ExpressionUUID->"997f4e86-8d9d-4e3a-a7c1-0e844fc95404"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pairsNashSmall2", " ", "=", " ", 
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{"listNashqSmall05", ",", "listpSmall05"}], "}"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7741066254313927`*^9, 3.7741066471099453`*^9}, {
  3.8404543619325194`*^9, 3.8404544040373297`*^9}},
 CellLabel->
  "In[206]:=",ExpressionUUID->"f346619a-e928-4b17-94db-70dcd4a3ee56"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pairsKalai2", "=", " ", 
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{"listKalaiq05", ",", "listpK05"}], "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.759187198899643*^9, 3.759187209365341*^9}, {
   3.759192385177971*^9, 3.759192396851661*^9}, 3.759193719310244*^9, {
   3.759193977900775*^9, 3.7591939831076937`*^9}, {3.7741062887369595`*^9, 
   3.7741062940479455`*^9}, 3.7741064871965384`*^9, {3.840454411150614*^9, 
   3.840454413604748*^9}, {3.840454464006447*^9, 3.840454477174768*^9}, {
   3.840454539520079*^9, 3.840454542344125*^9}},
 CellLabel->
  "In[207]:=",ExpressionUUID->"15c2a4fe-7bc7-473d-b1d5-d5bf10fa9d43"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pairsKalaiZero2", "=", 
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{"listKalaiqZero05", ",", 
      RowBox[{"{", "0", "}"}]}], "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.838750448071207*^9, 3.8387504924044085`*^9}, {
  3.8404544841349077`*^9, 3.8404545440801497`*^9}},
 CellLabel->
  "In[208]:=",ExpressionUUID->"612dd8e3-3d14-4146-8081-49c05711f417"],

Cell[BoxData[
 RowBox[{
  RowBox[{"test", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"pairsNashSmall2", ",", "pairsNash2"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.774107243503384*^9, 3.7741072720730305`*^9}, {
   3.774107824535474*^9, 3.774107829257775*^9}, 3.8262870033928056`*^9, {
   3.838750557092175*^9, 3.838750561996144*^9}, {3.840454555352394*^9, 
   3.8404545627107906`*^9}},
 CellLabel->
  "In[209]:=",ExpressionUUID->"c713f4ce-e963-42c9-9a86-a204ef2fd585"],

Cell[BoxData[
 RowBox[{
  RowBox[{"test2", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"pairsKalaiZero2", ",", "pairsKalai2"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.838750479999636*^9, 3.838750513276026*^9}, {
  3.838750597691457*^9, 3.8387506003314114`*^9}, {3.8404545672486153`*^9, 
  3.8404545704803853`*^9}},
 CellLabel->
  "In[210]:=",ExpressionUUID->"55f094ee-8878-4652-802e-1712fb709878"],

Cell[BoxData[
 RowBox[{
  RowBox[{"paymentNash", " ", "=", " ", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"test", ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dotted", ",", " ", 
          RowBox[{"Thickness", "[", ".01", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dotted", ",", " ", 
          RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}]}], ",", 
     " ", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", "\"\<Nash\>\"", "}"}]}], ",", " ", 
     RowBox[{"PlotMarkers", "\[Rule]", "None"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.758126868660992*^9, 3.7581268730554533`*^9}, {
   3.758126919954832*^9, 3.7581269252523465`*^9}, {3.758127145592914*^9, 
   3.758127150373257*^9}, {3.7591871206325903`*^9, 3.7591871208135834`*^9}, {
   3.759187215314787*^9, 3.759187221174838*^9}, {3.759187304743941*^9, 
   3.7591873064433765`*^9}, {3.7591924612220316`*^9, 
   3.7591924822254715`*^9}, {3.7591936033921857`*^9, 3.75919361956566*^9}, {
   3.7591939877721224`*^9, 3.7591939907114296`*^9}, {3.7741063096670003`*^9, 
   3.7741063480490017`*^9}, {3.7741066537571692`*^9, 3.774106664428057*^9}, {
   3.774106729609702*^9, 3.7741067377980146`*^9}, {3.774106891090243*^9, 
   3.7741070025963793`*^9}, {3.774107064153125*^9, 3.7741070649096622`*^9}, {
   3.7741074241066217`*^9, 3.774107547002823*^9}, {3.774107669449705*^9, 
   3.7741077429916067`*^9}, {3.7741078785995383`*^9, 3.774107879009282*^9}, 
   3.826286874568381*^9, {3.8404545752647448`*^9, 3.840454576681552*^9}, {
   3.8404547298220987`*^9, 3.8404547408358927`*^9}, {3.8404547986045065`*^9, 
   3.840454814191205*^9}, {3.8404548906844997`*^9, 3.840454891644515*^9}, {
   3.8405323168019867`*^9, 3.840532316936987*^9}},
 CellLabel->
  "In[211]:=",ExpressionUUID->"b1b9ec9c-3594-4f44-bb22-f703a787a0c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"paymentKalai", " ", "=", " ", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"test2", ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}]}], ",", " ", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", "\"\<Kalai\>\"", "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7591872383632774`*^9, 3.759187298985626*^9}, {
  3.75919246382686*^9, 3.7591924886571083`*^9}, {3.7591930177208776`*^9, 
  3.7591930488433275`*^9}, {3.7591930886764803`*^9, 3.759193092267074*^9}, {
  3.7591939947072535`*^9, 3.7591939972745457`*^9}, {3.774106355268879*^9, 
  3.77410637613091*^9}, {3.838750520636901*^9, 3.8387505213718967`*^9}, {
  3.8404545804008245`*^9, 3.8404545817118397`*^9}, {3.840454863884643*^9, 
  3.8404548869884305`*^9}, {3.84053232000202*^9, 3.8405323216570444`*^9}},
 CellLabel->
  "In[212]:=",ExpressionUUID->"923a46c2-30a7-4b00-8900-d6336f90648a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"alloc30nash", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1.24", ",", "30"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.759187198899643*^9, 3.759187209365341*^9}, 
   3.759193681748773*^9, {3.773318810467305*^9, 3.7733188856155863`*^9}, {
   3.77331897268437*^9, 3.773319012074295*^9}, 3.7741059923518543`*^9, {
   3.7759296586388865`*^9, 3.7759296665553455`*^9}, {3.8262871626555977`*^9, 
   3.826287178400468*^9}, {3.826287690655467*^9, 3.8262876913114676`*^9}, 
   3.8262877279054556`*^9, {3.840454962989608*^9, 3.84045500895743*^9}, {
   3.840455067719452*^9, 3.8404551394328127`*^9}, {3.8405320457991533`*^9, 
   3.840532046862166*^9}, {3.8405320900306187`*^9, 3.840532095377819*^9}},
 CellLabel->
  "In[213]:=",ExpressionUUID->"3ebb4682-1877-4e6f-80c8-13a95afc8812"],

Cell[BoxData[
 RowBox[{
  RowBox[{"alloc30kalai", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0.625", ",", "30"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8405320538302383`*^9, 3.8405320553920364`*^9}, {
  3.8405321049744916`*^9, 3.840532108440795*^9}},
 CellLabel->
  "In[214]:=",ExpressionUUID->"84e5a6fc-52aa-4f35-8ff6-df25b07cd5cf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"alloc60nash", "=", 
   RowBox[{"{", 
    RowBox[{"2.17", ",", "60"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.840454998161338*^9, 3.840455003101328*^9}, 
   3.8404550715111117`*^9, {3.840455124575507*^9, 3.8404551366445475`*^9}, {
   3.8405320582152815`*^9, 3.8405320585250316`*^9}, {3.8405321158948193`*^9, 
   3.840532119548969*^9}},
 CellLabel->
  "In[215]:=",ExpressionUUID->"589d9747-32e7-419d-bfb4-36593a8deaa1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"alloc60kalai", "=", 
   RowBox[{"{", 
    RowBox[{"1.69", ",", "60"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.840532060505137*^9, 3.840532070806404*^9}, {
  3.840532126894991*^9, 3.8405321282548604`*^9}},
 CellLabel->
  "In[216]:=",ExpressionUUID->"7c1b2dc8-043c-406e-87e9-013818871dc9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"alloc315", "=", 
   RowBox[{"{", 
    RowBox[{"4", ",", "118.91"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8404550112164783`*^9, 3.840455016005574*^9}, 
   3.840455073599715*^9, {3.840455145183909*^9, 3.8404551679591675`*^9}, {
   3.8405321382957506`*^9, 3.8405321420336685`*^9}},
 CellLabel->
  "In[217]:=",ExpressionUUID->"42a45fb7-c3d7-4ef1-a372-a6c2337f1f42"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot30nash", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc30nash", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
     RowBox[{"PlotMarkers", "->", 
      RowBox[{"em", "/@", 
       RowBox[{"{", "\"\<Circle\>\"", "}"}]}]}], ",", 
     RowBox[{"PlotLegends", "->", 
      RowBox[{"PointLegend", "[", 
       RowBox[{
        RowBox[{"{", "\"\<Nash predictions\>\"", "}"}], ",", 
        RowBox[{"LegendMarkerSize", "->", 
         RowBox[{"{", 
          RowBox[{"45", ",", "30"}], "}"}]}]}], "]"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.773319197455701*^9, 3.773319201011505*^9}, {
   3.7733192336448755`*^9, 3.773319275482153*^9}, 3.7733193223986883`*^9, {
   3.774106012138553*^9, 3.7741060124683404`*^9}, {3.7741060553588*^9, 
   3.774106086927697*^9}, {3.8404551879458036`*^9, 3.8404552047071*^9}, 
   3.8404552378027425`*^9, {3.84045528538772*^9, 3.8404553122922716`*^9}, {
   3.8405321466401944`*^9, 3.840532151210409*^9}, {3.840532303745838*^9, 
   3.840532303881937*^9}, 3.842452074154418*^9, 3.842452162177475*^9},
 CellLabel->
  "In[240]:=",ExpressionUUID->"0aa26ea9-bd83-4e8a-862c-cfede9af790c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot30kalai", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc30kalai", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
     RowBox[{"PlotMarkers", "->", 
      RowBox[{"em", "/@", 
       RowBox[{"{", "\"\<Triangle\>\"", "}"}]}]}], ",", 
     RowBox[{"PlotLegends", "->", 
      RowBox[{"PointLegend", "[", 
       RowBox[{
        RowBox[{"{", "\"\<Nash predictions\>\"", "}"}], ",", 
        RowBox[{"LegendMarkerSize", "->", 
         RowBox[{"{", 
          RowBox[{"45", ",", "30"}], "}"}]}]}], "]"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8405321628312817`*^9, 3.8405321856329517`*^9}, 
   3.8424521653614583`*^9, {3.8424522271047506`*^9, 3.842452227944644*^9}},
 CellLabel->
  "In[247]:=",ExpressionUUID->"283b2115-c80d-442f-a792-7b2a676694c3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot60nash", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc60nash", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
     RowBox[{"PlotMarkers", "->", 
      RowBox[{"em", "/@", 
       RowBox[{"{", "\"\<Circle\>\"", "}"}]}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7736139383347235`*^9, 3.773613949525326*^9}, {
   3.774106018174066*^9, 3.77410601846891*^9}, {3.7741060788433495`*^9, 
   3.774106100380993*^9}, {3.840455191321852*^9, 3.84045520884112*^9}, {
   3.840532192704645*^9, 3.8405321962572484`*^9}, 3.8424520771384583`*^9, {
   3.8424521687694283`*^9, 3.8424521980720882`*^9}},
 CellLabel->
  "In[242]:=",ExpressionUUID->"c562deb7-36a9-4de1-b9fd-60875c25a50f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot60kalai", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc60kalai", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
     RowBox[{"PlotMarkers", "->", 
      RowBox[{"em", "/@", 
       RowBox[{"{", "\"\<Triangle\>\"", "}"}]}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8405322045757713`*^9, 3.8405322155378847`*^9}, 
   3.842452171569744*^9, {3.8424522017609825`*^9, 3.8424522333285904`*^9}},
 CellLabel->
  "In[248]:=",ExpressionUUID->"4556c548-d2f1-4004-8a1b-7e8c9cc82d1e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot315nash", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc315", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
     RowBox[{"PlotMarkers", "->", 
      RowBox[{"em", "/@", 
       RowBox[{"{", "\"\<Circle\>\"", "}"}]}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7736140060489693`*^9, 3.7736140177483015`*^9}, {
   3.7741060226915092`*^9, 3.7741060229963045`*^9}, {3.774106104827447*^9, 
   3.7741061052262087`*^9}, {3.840455195088931*^9, 3.8404552119852333`*^9}, {
   3.8424520905222793`*^9, 3.8424520940501084`*^9}, 3.8424521746983733`*^9, 
   3.842452205297015*^9},
 CellLabel->
  "In[244]:=",ExpressionUUID->"6e537720-1bdb-4b69-9550-7bcb2f87ce1b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot315kalai", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "alloc315", "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
     RowBox[{"PlotMarkers", "->", 
      RowBox[{"em", "/@", 
       RowBox[{"{", "\"\<Triangle\>\"", "}"}]}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.842452102554098*^9, 3.842452102971212*^9}, {
  3.8424521778343673`*^9, 3.8424521792573285`*^9}, {3.8424522105769606`*^9, 
  3.842452238568639*^9}},
 CellLabel->
  "In[249]:=",ExpressionUUID->"52f400ed-84c1-4de7-9b47-ab3a9aa03f82"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p2", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "base", ",", "paymentNash", ",", "paymentKalai", ",", "plot30nash", ",", 
      " ", "plot30kalai", ",", "plot60nash", ",", "plot60kalai", ",", 
      "plot315nash", ",", "plot315kalai"}], "}"}], ",", " ", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<Quantity traded, q\>\"", ",", "\"\<Payment, y\>\""}], 
      "}"}]}], ",", " ", 
    RowBox[{"PlotLabel", "\[Rule]", "\"\<Terms of trade as m increases\>\""}],
     ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", " ", 
    RowBox[{"AspectRatio", "\[Rule]", " ", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8404545970701175`*^9, 3.8404546061813564`*^9}, {
  3.840455215834302*^9, 3.8404552215222*^9}, {3.8405322257844143`*^9, 
  3.8405322361240606`*^9}, {3.840532354498367*^9, 3.840532396578784*^9}, {
  3.8405324862276697`*^9, 3.8405324866916733`*^9}, {3.8424522546574097`*^9, 
  3.8424522585170317`*^9}, {3.84245233752285*^9, 3.842452439308876*^9}, {
  3.842452495789841*^9, 3.8424524984862003`*^9}},
 CellLabel->
  "In[267]:=",ExpressionUUID->"646183bd-0e87-4a8c-b848-34475560377b"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]], 
          LineBox[CompressedData["
1:eJwVxXs8lPkCB2B3YRrGW21yG7LuWbJabcPve9guxy25JFQYzLxbCFEtKckl
J8pGQmlCq49yiVRHS0JLjThliGI3kdTEZlwKiXPOH8/n0eMe8AiVkZKSov/n
/xce4ypYhcTbi60lV7z4B8lDEdvFh+1LLFedlCnZPkuWWu+fZLN/JglVoQH/
CpMB89ydm8p90UQ1J0E/87giCh9k6sqzfyFh7kOyf42pwPxjyJkl/nGyr8x1
g9y4Kv5kXl5c6E0iq6sPVo92shBmFxv+WTednHZ4qtVhshK3ugevTjtmEA/j
u7+n3lmF+f0uAxL+WaIn4lz7ZLUaP3X8+u2n3nPEcVK0duHrGoi+0DkTuvnk
ahTHXazExqE2HcuP1QUkTXJypVwxG2uyu9vHHS+R4oJ3jdkb9MA1hewHvoCY
VLtpr92pjyPlKnWTvcVk8pJrT1uMART7h4zGdcvI6ghJcOh2Y/Q9aIgde1dG
Ghpf5O9pMcb10ryWD9XXCSN7UHXCxgRu0W4BYsdyIkrq99L+xhS5SvdyR/lV
5OIvrMg5oRnULz2SkfTWkGVc+YnD0t+hSCiI+qBbRzwy38sfDFuP6bzbpq8y
6kh39uGAjZfWYwu/fbhrro7YnGYkVravx5jsZ+97onvkfGRFVLmJNWzt3H5M
T6snvn1LjwyHrPG0akHG6GMj2WKtfIy7xQbHheZOVgEtxLySkaj15gdUVqX3
h1kIyXZOVEqtgAOxujjDKUhIxhqzT8g3cWB0yMneOEdI+MWuPZwhDq5wVIqG
54RkSHMoJ8DADuceZ/D8/mgnK2z9bxy9ZodDw2clW3d3EIu+Ldudy+whUGk/
ydr8lLw81lG42w3gk2f5Y9EissLSt83a0AERIybDtZUvyMFNYz2CqM1Q1ks2
emU7SK4UHChVKN+GM2rtpkWBw0SgGfj8cbQzuP1ejbJP3hJrD/3X8Q5uiPoj
mXvASEz0R7IWFCLcUR3J8Fz9z3Eif7Os1/P8DhTF7xdb+kwQyalmpQttHkgS
LOyYHpOQrjhqpdVLT0iJBlEfN0Wys2+Fa/7lBcMY3hEv0xnCfCSV8fZvb7yZ
ubBTpeET0fFf5l8zshNOI/sSzkXNEpNARtbl9z5we5NlpqMzT8zKrup3vd4F
cQs38VHFF/LuW7bL5RZfWLCeazsGfCV2Jvy9PTV+UCYzQQNTiyQxUkW0LtMf
W8f9Put7S6Fc5PyiPWY3+ppDpP3MpdEcvSib7LkHt0893MuekUZrsGVvsO5e
8ORjBzs7ZTAZLrobPbsXwdHxtxkFsphZXjGT2xiA7/hmnS5BcqgvNdXpJ4H4
j7q5SuxGeZQy37qGlQbi98qki+ayCkiaXhgrlwtCvLSp+5M/FXBbeu20+89B
UB6I2xZRq4gNcuHC68IgjJTq5QiOLgOT+bdkkwEXOcYacnXeSujxa/qwIpmL
rAJeWxBbGVa75mZ5A1z45ezpZIwqo37BiDNlFYzZn36bE9xXQWysxeYbmcEY
HnE40pzGwPc1jf+2HwpGsZ2VZkfQcqwZuBM5xAlBRUosi7+OCcuzvOrsrBCk
eQc7y84w4dMU1NT6OgQ2A0VlaR2qKBfWqH20DUWeycWKDmc19L0f0IhOD8Xx
B5l5znVq0KPHeM9ehcJV0/s3oQELLJuc2mZrHv4R0ebPSmeBo5st8DzBg0CL
a/BkhgUDzVfMa908GLRcy3XzV8ewXOr5ej0+stY1m3bdV4fDxHOPsjA+eFNy
zx6bUhCIv/dGAx/c6kl2+lkKjMMOSU8VaYQleS44/UqBeUt2hZYSjVjP2l5G
NoWvygP5fGUap2Ziz2TlUphX7juxyKBRuXHuy4VCCg26Ri1m6jTmmpael96g
cNrqACNZi0ZWFyPzYRsF/XcyD82saBSUhNOpjylwutL6Y9fTKInpdNzWTiFN
13O00ZrGnVVZ8+2dFFLuNvd7bqAx4EfRoh4KxbkWtvGbaBgNazgODVNY9jLh
QdtmGpa1cTpXRyjEGX6jzdpK48eU/rnQUQrl0swIv200XIwKb74XU4gyWDM+
5kQjej9bRyKhUODcHcByp3GUc2KuZoqCNZIC/HbQSFk+1B0zQ2FqU75niQeN
vKqS07OzFIKWFDVsvGkUJ8rx781TSC3iihN20rixI9Th6AKF1iWzm60+NGr1
W7XtFylcTA3dp+pL4/6U4dzSEoUfitU0dvnR+C+CvvVa
           "]]}, Annotation[#, "Charting`Private`Tag$21632#1"]& ], 
        TagBox[{
          Directive[
           Opacity[1.], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6]], 
          LineBox[CompressedData["
1:eJwVxXk8lAkfAHCMtA1yPLW5YvSOW0VlN8LvF4mYLGEebK11jnIUr6PCkhIq
kuSK5NyVO+RFodzjPkJLIVeJ5Jgilvd9//h+vrIOF88483BxcXn8z/9P/cOB
T90pQJcY3U3Plp/TaeijMUiaDSi/b5xlCuvAVlPNdRrtPNz82yHPiW0JO2Of
FVOHvIHaH82rqeUIqXVRMttoV2DmY8z2tzUeoLrgFL3FCoZ1N+P96yM+8Hbn
o82NwVCwa60ecAwNAHcdX49vMpGQTVakeBmGQWn/WNaK/h3waijjrF6KhO9u
jJFF1l2IeX2rJvZNFJzouCf3dTAWdCwKGQsF96Fv3TXui0wSWBo1Oc95PQK/
Zmm1hZJkGHM2PWdS/Bgk7ve3zeungFz65fCfD2eAgzJSPrHSQKaPUZpgmw2X
8/krlwYzYDdtb8UPivmwffi9wrxMLpCJNkcTmsthqO6F79yHXEjc135ws+cZ
PMlJrP9U8gSIXUP5SWMVYOptajernw8C5Qtq6tQqiN9RFT/DKoJgifF0m6ga
EE1p4VkcfAq6rOo5P3oDpLPTvD7JVELOcfMsU6UuWEksVx69Uwn1Ds6rSt+6
4CSrbaJ3rRJkzdJ9XBy7YY7yzaqqrwr8d3xOKdDogaM6plqR4c9BozvjPymT
vdBdtMGjsFALFqr0rJQLAxDMVjVWt6uHQ08czXMF38FfJRXyeQ/qIXf22qOf
ot9Bb6IeRa69Hjwp4seChEaBzrJ+LqbZAARdykCcOgZsyo0DXEQjGFoS5SLE
OPyoMyza1dQEquoqofkaE1BYFDnsfoANZ6+LPWiomoFZ0dk7xvZs2DwQLvKa
6wMo+BnrKsaxQXar7ZqK4Qd4rM2fPrHGBu4Lxsdy+z9AbOsdF9vGNrhgGaEw
vvQR/CbuLhqe7QApbdEXgtpzkMbfdl3EoBvyx8mlmeAvwIKepDnvPhh1zeTd
l84BzymlibLCN2AjI3C+KZALqbI3FEaPjoH2eNjFmJDtGC3cppz++wT0BjWf
PNi0Ex2GLWsp7dMwEjypr1lMoFfjDYeLCrOwuVr5ZgrEsOSSgIXYqXlItMyI
iGiVwvQAt1k18gtEQjR9bIuGoWkb5itzi5Bt31axfPdfyNU3hs+vLoOKfxdz
QU0e5X1cLlsqc6Di4RWOvIoSTnISmPwvvoK+ZEsXQ0gVjacuBMV6rULp/HFr
itlBNJ2MUZGW/g5StU4rj39Rx9l6h5CWgnXwrU+Wuj9zCA+IDOzVt/sH5Lx3
P8wrOoJU4NiPLG/CJaG6PQPOP6HhvO23fVZc2LFJiR08fRSHXjlx26py46FD
/qvcWlpYHtHwG43DjYprGpfChbXRZZvvWGcnDw4m59/skNBFR++AcoFkCi6f
Waxl8yEeZKl0Mux5UaKBynDlOo5doqr8vprb0GgpbL5vlx5WF4Y+VKXw4cyp
K1+/SupjALeyWftbPrTl/qezVPcEUkeuGnmWbUc33msG2fYGOJUjG5cW+APu
Lsuv+dv3JMYpivNWWu3An8UDLR7kGGJMskuzPY2KPZTfZYaajdA27lynwAwV
uz8fVhqcOYWrJ7LX0mr4UY3XtlpbzgQnpvQuvwoXwGmbAfdpcwZm6KhLdtgL
or+d+EBpymksCPMVYe3fiX9FvmRIDphiuJWjCYWzE4OGpqUb+cxQYyQ9N7xD
CEvGbliul5hhotLDgg4TYaT/e7Llo4U5BtdFJZpUCqMij95QybYzeFrSKptN
F0EFjbrbkc/O4HHP5l9FIkWwOLkrIeKcBaZJOdDbOSK4g6f3XPsuS6TX/xlv
+qso8glMJs2/tMSY/a+Ue2tEsc/VOvKWhxW6LPP2tCoTmM4fUtCrxESHkiVa
5F0ChUQPv/EZZqJ7qMWG8T0CNcfuQew7JvpalA0K3CeQqr3MLhpnYgTHNzom
nsBStQqzTzNMLNRcW09IJdBEfo+Y0woT115uDeTkEUhUdMedFSQxplcgqqGZ
wBZ17mPngcTkTA/Xm60EOron6d7WIzHTp1PfqI1Ac21uVoEBic9+jPne1kmg
momm/JIJiSO2hGvfawJfrUn/FmRNosKEuP77CQJDPts9TfYiUa3sqnTWFIFT
nkd4an1I1AobXnOeIfC5da3fhD+JDIXU4o+zBC7RlzpU/yDR240mvbhIYHV3
2pGXt0gM1L629nSZQGb7eu50FIlhgu/7fTgEqhZxnxC4R2JiUebt1VUCbed5
p8kEEjNCeFlV3wmMV96aD0omMc/cWS9wg8Bh0VSJrFQSy/Y17dXdJDBtz1s3
9mMSa5bl17a2CLz95MX4l0wS/ws2OC0I
           "]]}, 
         Annotation[#, 
          "Charting`Private`Tag$21632#2"]& ]}}, {}}, {{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.011000000000000001`], 
          AbsoluteThickness[1.6], 
          GrayLevel[0], 
          Dashing[{0, Small}], 
          Thickness[0.01]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAIAmIQfehU+EZFMw07Bigw2xWk2Hlvoz2E98A+Obsq9E3J
Hij/g/3sbX83MW8/BOX/sH9/eL7z34PHoHwGh7qiEr7ljaegfBYHc6kr5llc
56B8DgdOna0bE7dcgPJ5HORd7+Q2B12C8gUcrtoezOt9dBnKF3LQWjJh07q0
q1C+iMNH44LQyQ+uQfliDkE1Pbo9gTegfAkH3V9BSit23YTypRz2blknelTm
NpQv47BEL2Py7Io7UL6cQ5Cnv+Lxc3ehfAWHh5fj/c/I34fyFR2+rlebx2f2
AMpXcphfebiR7xaMr+xQU5duKFjzEMpXcbAyPh/QXP3IftZMEFB1aH7TMlsg
4wWUr+8w61VWtv+Pt/Znz4CAicOsu3y5d5d/hPItHd7w18lvd/gC5ds5HHz0
o6H3zDf7NBB45ujwXCpC2tn/J4Sf5uJQ/VtUZcrp31B5Nwetw8ddmp3/QeU9
HSSCKs54xzA4QOS9HXbONddjnMYI4af5OZxK9GqKPs/kYAwCxQEOH09ULt/L
wQLhbw50+Nu8SrPSiRXC/xzkMFOHX/9SDRuEbxzikNJ+J4hpBztUf6jDufvH
D1t94YDqD3Po+uR2b6khF1R/uMO+4w/TMwq4ofojHYS3C7Uu2sAD1R/lsHl/
TXXBJ16o/miHtjxZ39em/FD9MQ6wdNI13WqW9a7YUf4on6Z8AHa7iX0=
          "]]}}}, {{}, {}}}, {{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.011000000000000001`], 
          AbsoluteThickness[1.6], 
          GrayLevel[0], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGBwAGIQjQ6Efu3+ncviaQ/hPbA3l57JbyuwFMoXczjb+Pc8
b9E+KF/VIXKfmKVx3xkoX99hwzPN1UZ21yD8BhMHu6W1l+9Z3YfyLR10GyI9
a5qfQPl2Ds+1hYNY9ryE8A84OrQvlOPSNHsP4Tu4OLyfsPK2SdEnqLybQ6tW
bMKX2K9QeU+HQPka3veRP6Dy3g46xhs+Tkn6DZX3c2C+9rLpf8k/CD8hwGGV
fR1/xnGw9xkYFgQ68L35doErnAnCfxDkUL4lft/sF8wQvkKIg8wth+6ialYI
PyHUIfVmsgsLPztUf5hDu1/G/7uLOKD6wx325qhMWWDGBdUf6TBvpqnG35Pc
UP1RDovscxI3xfBC9Uc7SL4zlu16xwfVHwOhGQQcuqZbzbLeFTvKH+XTlA8A
fzME4w==
          "]]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                DynamicBox[
                 Typeset`ToBoxes[
                  EdgeForm[
                   Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], TraditionalForm, Graphics]], 
                FaceForm[{
                  GrayLevel[1], 
                  Opacity[0]}], 
                PolygonBox[{
                  Offset[{0, 5.106857870531042}, {0, 0}], 
                  Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], 
                  Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], 
                  Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], 
                  Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], 
                  Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                  Offset[{5.106857870531042, 0}, {0, 0}], 
                  Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                  Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], 
                  Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], 
                  Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], 
                  Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                  Offset[{0, -5.106857870531042}, {0, 0}], 
                  Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                  Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], 
                  
                  Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 
                   0}], 
                  Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], 
                  Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                  Offset[{-5.106857870531042, 0}, {0, 0}], 
                  Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                  Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], 
                  Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], 
                  Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], 
                  
                  Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 
                   0}]}]}, {
               ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                All, PlotRange -> All}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}], {{{1.24, 30.}}, {{1.24, 
          30.}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                DynamicBox[
                 Typeset`ToBoxes[
                  EdgeForm[
                   Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], TraditionalForm, Graphics]], 
                FaceForm[{
                  GrayLevel[1], 
                  Opacity[0]}], 
                PolygonBox[{
                  Offset[{0, 7.896444077714955}, {0, 0}], 
                  Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], 
                  
                  Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 
                   0}]}]}, {
               ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                All, PlotRange -> All}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}], {{{0.625, 30.}}, {{0.625, 
          30.}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                DynamicBox[
                 Typeset`ToBoxes[
                  EdgeForm[
                   Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], TraditionalForm, Graphics]], 
                FaceForm[{
                  GrayLevel[1], 
                  Opacity[0]}], 
                PolygonBox[{
                  Offset[{0, 5.106857870531042}, {0, 0}], 
                  Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], 
                  Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], 
                  Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], 
                  Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], 
                  Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                  Offset[{5.106857870531042, 0}, {0, 0}], 
                  Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                  Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], 
                  Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], 
                  Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], 
                  Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                  Offset[{0, -5.106857870531042}, {0, 0}], 
                  Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                  Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], 
                  
                  Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 
                   0}], 
                  Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], 
                  Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                  Offset[{-5.106857870531042, 0}, {0, 0}], 
                  Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                  Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], 
                  Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], 
                  Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], 
                  
                  Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 
                   0}]}]}, {
               ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                All, PlotRange -> All}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}], {{{2.17, 60.}}, {{2.17, 
          60.}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                DynamicBox[
                 Typeset`ToBoxes[
                  EdgeForm[
                   Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], TraditionalForm, Graphics]], 
                FaceForm[{
                  GrayLevel[1], 
                  Opacity[0]}], 
                PolygonBox[{
                  Offset[{0, 7.896444077714955}, {0, 0}], 
                  Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], 
                  
                  Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 
                   0}]}]}, {
               ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                All, PlotRange -> All}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}], {{{1.69, 60.}}, {{1.69, 
          60.}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                DynamicBox[
                 Typeset`ToBoxes[
                  EdgeForm[
                   Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], TraditionalForm, Graphics]], 
                FaceForm[{
                  GrayLevel[1], 
                  Opacity[0]}], 
                PolygonBox[{
                  Offset[{0, 5.106857870531042}, {0, 0}], 
                  Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], 
                  Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], 
                  Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 0}], 
                  Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], 
                  Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                  Offset[{5.106857870531042, 0}, {0, 0}], 
                  Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                  Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], 
                  Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 0}], 
                  Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], 
                  Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                  Offset[{0, -5.106857870531042}, {0, 0}], 
                  Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                  Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], 
                  
                  Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 
                   0}], 
                  Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], 
                  Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                  Offset[{-5.106857870531042, 0}, {0, 0}], 
                  Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                  Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], 
                  Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 0}], 
                  Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], 
                  
                  Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 
                   0}]}]}, {
               ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                All, PlotRange -> All}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}], {{{4., 118.91}}, {{4., 
          118.91}}}]}}}, {{}, {}}}, {{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0, 0]], 
         GeometricTransformationBox[
          InsetBox[
           BoxData[
            FormBox[
             StyleBox[
              GraphicsBox[{
                DynamicBox[
                 Typeset`ToBoxes[
                  EdgeForm[
                   Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], TraditionalForm, Graphics]], 
                FaceForm[{
                  GrayLevel[1], 
                  Opacity[0]}], 
                PolygonBox[{
                  Offset[{0, 7.896444077714955}, {0, 0}], 
                  Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 0}], 
                  
                  Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 
                   0}]}]}, {
               ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                All, PlotRange -> All}], 
              GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                  PointSize[0.012833333333333334`], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]]}, StripOnInput -> False], 
             TraditionalForm]], {0., 0.}], {{{4., 118.91}}, {{4., 
          118.91}}}]}}}, {{}, {}}}}, {AxesLabel -> {
       FormBox["\"Quantity traded, q\"", TraditionalForm], 
       FormBox["\"Payment, y\"", TraditionalForm]}, PlotLabel -> 
     FormBox["\"Terms of trade as m increases\"", TraditionalForm], 
     BaseStyle -> {FontFamily -> "Times", FontSize -> 14}, AspectRatio -> 1, 
     DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
     BaseStyle -> {FontFamily -> "Times", FontSize -> 14}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 5}, {0., 194.82325413941155`}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    TagBox[
     GridBox[{{
        FormBox[
         TemplateBox[{"\"u(q)\"", "\"c(q)\""}, "LineLegend", 
          DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "Times", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "Times", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "Times", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "Times", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], 
                    "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2}], "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}, {
        FormBox[
         TemplateBox[{"\"Nash\""}, "PointLegend", DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small}], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small}], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small"}], "}"}], "]"}], ",", 
                    RowBox[{"Thickness", "[", "0.01`", "]"}]}], "]"}], "}"}], 
               ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
               RowBox[{"Joined", "\[Rule]", 
                 RowBox[{"{", "True", "}"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}, {
        FormBox[
         TemplateBox[{"\"Kalai\""}, "PointLegend", 
          DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
                 "}"}], ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
               RowBox[{"Joined", "\[Rule]", 
                 RowBox[{"{", "True", "}"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}, {
        FormBox[
         TemplateBox[{"\"Nash predictions\""}, "PointLegend", 
          DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    InsetBox[
                    GraphicsBox[{
                    DynamicBox[
                    Typeset`ToBoxes[
                    EdgeForm[
                    Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], StandardForm, Graphics]], 
                    FaceForm[{
                    GrayLevel[1], 
                    Opacity[0]}], 
                    PolygonBox[{
                    Offset[{0, 5.106857870531042}, {0, 0}], 
                    Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], 
                    Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], 
                    
                    Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], 
                    Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                    Offset[{5.106857870531042, 0}, {0, 0}], 
                    Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                    Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], 
                    
                    Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], 
                    Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                    Offset[{0, -5.106857870531042}, {0, 0}], 
                    
                    Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 
                    0}], 
                    Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], 
                    
                    Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], 
                    
                    Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 
                    0}], 
                    Offset[{-5.106857870531042, 0}, {0, 0}], 
                    Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                    Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], 
                    
                    Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], 
                    
                    Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 
                    0}]}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImagePadding -> 6, 
                    AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> 
                    All}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {45, 30},
                     PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.3666666666666667] -> 
                    Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False]}], "]"}], "}"}], ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{
                    GraphicsBox[{
                    DynamicBox[
                    Typeset`ToBoxes[
                    EdgeForm[
                    Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], StandardForm, Graphics]], 
                    FaceForm[{
                    GrayLevel[1], 
                    Opacity[0]}], 
                    PolygonBox[{
                    Offset[{0, 5.106857870531042}, {0, 0}], 
                    Offset[{1.3217520775251368`, 4.932845908333528}, {0, 0}], 
                    Offset[{2.553428935265521, 4.422668649396384}, {0, 0}], 
                    
                    Offset[{3.6110938308083913`, 3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{4.422668649396384, 2.553428935265521}, {0, 0}], 
                    Offset[{4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                    Offset[{5.106857870531042, 0}, {0, 0}], 
                    Offset[{4.932845908333528, -1.3217520775251368`}, {0, 0}], 
                    Offset[{4.422668649396384, -2.553428935265521}, {0, 0}], 
                    
                    Offset[{3.6110938308083913`, -3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{2.553428935265521, -4.422668649396384}, {0, 0}], 
                    Offset[{1.3217520775251368`, -4.932845908333528}, {0, 0}], 
                    Offset[{0, -5.106857870531042}, {0, 0}], 
                    
                    Offset[{-1.3217520775251368`, -4.932845908333528}, {0, 
                    0}], 
                    Offset[{-2.553428935265521, -4.422668649396384}, {0, 0}], 
                    
                    Offset[{-3.6110938308083913`, -3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{-4.422668649396384, -2.553428935265521}, {0, 0}], 
                    
                    Offset[{-4.932845908333528, -1.3217520775251368`}, {0, 
                    0}], 
                    Offset[{-5.106857870531042, 0}, {0, 0}], 
                    Offset[{-4.932845908333528, 1.3217520775251368`}, {0, 0}], 
                    Offset[{-4.422668649396384, 2.553428935265521}, {0, 0}], 
                    
                    Offset[{-3.6110938308083913`, 3.6110938308083913`}, {0, 
                    0}], 
                    Offset[{-2.553428935265521, 4.422668649396384}, {0, 0}], 
                    Offset[{-1.3217520775251368`, 4.932845908333528}, {0, 
                    0}]}]}, {
                    ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                    All, PlotRange -> All}], ",", "Automatic"}], "}"}], 
                   "}"}]}], ",", 
               RowBox[{"Joined", "\[Rule]", 
                 RowBox[{"{", "False", "}"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
               RowBox[{"LegendMarkerSize", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"45", ",", "30"}], "}"}]}]}], "]"}]& ), Editable -> 
          True], TraditionalForm]}, {
        FormBox[
         TemplateBox[{"\"Nash predictions\""}, "PointLegend", 
          DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    InsetBox[
                    GraphicsBox[{
                    DynamicBox[
                    Typeset`ToBoxes[
                    EdgeForm[
                    Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], StandardForm, Graphics]], 
                    FaceForm[{
                    GrayLevel[1], 
                    Opacity[0]}], 
                    PolygonBox[{
                    Offset[{0, 7.896444077714955}, {0, 0}], 
                    Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 
                    0}], 
                    
                    Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 
                    0}]}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]]}, ImagePadding -> 6, 
                    AlignmentPoint -> {0, 0}, ImagePadding -> All, PlotRange -> 
                    All}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {45, 30},
                     PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.3666666666666667] -> 
                    Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0, 0], Editable -> False, Selectable -> 
                    False]}], "]"}], "}"}], ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{
                    GraphicsBox[{
                    DynamicBox[
                    Typeset`ToBoxes[
                    EdgeForm[
                    Directive[
                    CurrentValue["Color"], 
                    JoinForm["Round"], 
                    AbsoluteThickness[2], 
                    Opacity[1]]], StandardForm, Graphics]], 
                    FaceForm[{
                    GrayLevel[1], 
                    Opacity[0]}], 
                    PolygonBox[{
                    Offset[{0, 7.896444077714955}, {0, 0}], 
                    
                    Offset[{6.8385211708643325`, -3.9482220388574776`}, {0, 
                    0}], 
                    
                    Offset[{-6.8385211708643325`, -3.9482220388574776`}, {0, 
                    0}]}]}, {
                    ImagePadding -> 6, AlignmentPoint -> {0, 0}, ImagePadding -> 
                    All, PlotRange -> All}], ",", "Automatic"}], "}"}], 
                   "}"}]}], ",", 
               RowBox[{"Joined", "\[Rule]", 
                 RowBox[{"{", "False", "}"}]}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
               RowBox[{"LegendMarkerSize", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"45", ",", "30"}], "}"}]}]}], "]"}]& ), Editable -> 
          True], TraditionalForm]}}, 
      GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
      GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.840454606547036*^9, {3.8404546841714725`*^9, 3.840454712689784*^9}, 
   3.8404547436948724`*^9, {3.8404548799914765`*^9, 3.8404548833130884`*^9}, 
   3.840454930657776*^9, 3.840455222146877*^9, 3.8404553155417576`*^9, 
   3.840532241074458*^9, {3.8405323084578123`*^9, 3.840532325626252*^9}, 
   3.840532357219055*^9, 3.840532398020856*^9, 3.8405324873835692`*^9, 
   3.8424520354353404`*^9, {3.842452217615193*^9, 3.8424522592013397`*^9}, {
   3.842452343157178*^9, 3.842452458910342*^9}, {3.842452497350461*^9, 
   3.842452499221724*^9}},
 CellLabel->
  "Out[267]=",ExpressionUUID->"46d53352-a020-4335-b77c-648b5bfb0019"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{949, 475},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"e29e948f-7ee5-4708-ba55-69d441823852"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 337, 9, 131, "Abstract",ExpressionUUID->"b1d98d51-22e8-49ab-ac71-41e2b00686c7"],
Cell[CellGroupData[{
Cell[920, 33, 178, 3, 67, "Section",ExpressionUUID->"5d08c9a9-2d09-407d-9f02-20da1544b079"],
Cell[1101, 38, 7684, 192, 428, "Input",ExpressionUUID->"be53a675-8502-48b9-b852-98d689aaab8e"],
Cell[8788, 232, 384, 9, 28, "Input",ExpressionUUID->"156848c4-d708-40ea-96ef-a70f052b02db"],
Cell[9175, 243, 388, 9, 28, "Input",ExpressionUUID->"d3571ed8-adc2-4d31-916e-51459d584dd7"],
Cell[9566, 254, 376, 9, 28, "Input",ExpressionUUID->"0947fe8f-13de-4b50-adb5-c6216b5b7058"],
Cell[9945, 265, 379, 9, 28, "Input",ExpressionUUID->"0fe6f4b5-1ab0-4593-978d-d443cc6425e3"],
Cell[10327, 276, 1029, 16, 28, "Input",ExpressionUUID->"1527cdb0-c436-47d1-b567-d1918bac5b63"],
Cell[11359, 294, 582, 10, 28, "Input",ExpressionUUID->"bfa9664e-4a25-481c-99e1-d811f325120e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11978, 309, 226, 4, 67, "Section",ExpressionUUID->"061d2d6b-2dd8-4a0e-9d26-9c9207f2a711"],
Cell[CellGroupData[{
Cell[12229, 317, 178, 4, 32, "Item",ExpressionUUID->"0a0dc1de-c8e2-478b-8b54-c9f570a802b1"],
Cell[12410, 323, 2588, 66, 143, "Input",ExpressionUUID->"d8bb6491-44cc-43e5-bc14-4b4c99a42720"],
Cell[15001, 391, 6638, 169, 238, "Input",ExpressionUUID->"924354be-802f-477c-baff-d4c265235c7a"],
Cell[21642, 562, 3924, 99, 143, "Input",ExpressionUUID->"80dd24de-025e-4cb7-b8f4-1de4e13dfddd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25603, 666, 151, 3, 32, "Item",ExpressionUUID->"48bf80ca-9933-4a74-a1f0-83d416f2b4ab"],
Cell[25757, 671, 1437, 33, 48, "Input",ExpressionUUID->"608a3e64-8c9a-4da8-bd35-1894205b97db"],
Cell[27197, 706, 201, 3, 28, "Input",ExpressionUUID->"181f3859-a515-4167-bb2a-5e0c52689938"],
Cell[27401, 711, 3551, 93, 124, "Input",ExpressionUUID->"da983258-e06b-4945-9ca0-6c6f867f7bef"],
Cell[30955, 806, 3884, 99, 143, "Input",ExpressionUUID->"d5d2fce3-e192-43f6-9cd3-6d8095b57222"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[34888, 911, 224, 4, 67, "Section",ExpressionUUID->"42ba752c-3203-4721-9fdd-a6595a4cada6"],
Cell[CellGroupData[{
Cell[35137, 919, 180, 3, 32, "Item",ExpressionUUID->"b1d83cc2-9230-4e23-8d34-5e52c6ba3e6e"],
Cell[35320, 924, 1261, 29, 67, "Input",ExpressionUUID->"e1b4535c-8df8-4837-9274-d8ed1038eac9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36618, 958, 169, 3, 32, "Item",ExpressionUUID->"d25f759a-62ae-47f1-ba9d-51cb83d93d0d"],
Cell[36790, 963, 413, 11, 28, "Input",ExpressionUUID->"be6844db-20ce-4558-98f9-bb877e416cf0"],
Cell[37206, 976, 2532, 68, 67, "Input",ExpressionUUID->"1e5fdfd1-2172-4102-a22b-7042560c965e"],
Cell[39741, 1046, 723, 19, 28, "Input",ExpressionUUID->"7b623722-69a9-4316-ab69-e86118f22f98"],
Cell[40467, 1067, 950, 22, 28, "Input",ExpressionUUID->"dcac579a-a82a-4188-92ae-3e77380e1657"],
Cell[41420, 1091, 981, 22, 28, "Input",ExpressionUUID->"fe7dd363-4dda-4a95-98bf-6ff4c0655888"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42438, 1118, 200, 3, 32, "Item",ExpressionUUID->"eb402fb2-8212-4b0d-a59c-8995dd525a87"],
Cell[42641, 1123, 320, 6, 28, "Input",ExpressionUUID->"155fe7d6-2085-4875-a5cf-cff1a7dc2761"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42998, 1134, 273, 6, 32, "Item",ExpressionUUID->"cb7778a3-366b-491c-a7b5-ca82dd24eaa9"],
Cell[43274, 1142, 865, 18, 48, "Input",ExpressionUUID->"0d68b5c8-da0b-4eb0-a080-07f7e070fb8c"],
Cell[44142, 1162, 717, 16, 48, "Input",ExpressionUUID->"47af3a69-b08b-4791-abbf-5cbf761dfa1f"],
Cell[44862, 1180, 783, 17, 48, "Input",ExpressionUUID->"2a7353af-5aa0-4111-9812-a88ca6ca5178"],
Cell[45648, 1199, 687, 15, 48, "Input",ExpressionUUID->"7ed502f7-043f-40a9-8c49-6851dcd41cad"],
Cell[46338, 1216, 643, 15, 48, "Input",ExpressionUUID->"c5532257-2018-4a1f-bf2e-a3917001d19a"],
Cell[46984, 1233, 620, 15, 28, "Input",ExpressionUUID->"dca552a8-1fe3-43ed-81d3-67cdd0274458"],
Cell[47607, 1250, 1600, 31, 48, "Input",ExpressionUUID->"885e6dfe-e1e4-4506-997a-360bed3fa3df"],
Cell[49210, 1283, 1340, 28, 48, "Input",ExpressionUUID->"44e2c117-ca33-45e2-8dc1-23272efe4492"],
Cell[50553, 1313, 996, 23, 48, "Input",ExpressionUUID->"9495cc4a-7b96-4196-b51a-8dfb35bf0835"],
Cell[51552, 1338, 953, 22, 48, "Input",ExpressionUUID->"a3113996-f25a-4630-8310-c23fd6d7407e"],
Cell[52508, 1362, 954, 22, 48, "Input",ExpressionUUID->"a7437e41-ba6c-4dfc-9a9c-bc2b25aa1ea1"],
Cell[53465, 1386, 934, 22, 48, "Input",ExpressionUUID->"38e1d752-f7e1-4a3c-ad71-1d9d2d91999f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54436, 1413, 275, 4, 32, "Item",ExpressionUUID->"1737adf9-ef6c-49fe-8c6e-a4a368634139"],
Cell[54714, 1419, 1233, 21, 28, "Input",ExpressionUUID->"baafc0cf-1a1f-4652-95ac-290f5cce422d"],
Cell[55950, 1442, 536, 12, 28, "Input",ExpressionUUID->"6aa13152-ad00-4586-9bcb-e9d6058095bc"],
Cell[56489, 1456, 1433, 24, 28, "Input",ExpressionUUID->"da490ac6-5c61-4cea-838d-2b4616409959"],
Cell[57925, 1482, 534, 12, 28, "Input",ExpressionUUID->"6ff6a929-b79b-48eb-894e-a0d21869ef8a"],
Cell[58462, 1496, 1293, 23, 28, "Input",ExpressionUUID->"f5cd05ba-104c-4f00-b96e-dec451d65503"],
Cell[59758, 1521, 1314, 22, 28, "Input",ExpressionUUID->"7278b8d8-0945-4e70-8336-4456d7a9d633"],
Cell[61075, 1545, 306, 6, 28, "Input",ExpressionUUID->"471c1c01-4f35-4410-baca-cd60a3b3ba06"],
Cell[61384, 1553, 311, 6, 28, "Input",ExpressionUUID->"bf72b28e-1f87-431f-bca0-072c1a54eb2f"],
Cell[61698, 1561, 646, 12, 28, "Input",ExpressionUUID->"efee8015-335c-4136-a696-b28aa24c3f82"],
Cell[62347, 1575, 360, 8, 28, "Input",ExpressionUUID->"c196fa21-01b3-4e5b-8c7a-698ad0a106fb"],
Cell[62710, 1585, 546, 11, 28, "Input",ExpressionUUID->"5a506df9-6df7-46b4-97db-7e62ec6126cc"],
Cell[63259, 1598, 348, 8, 28, "Input",ExpressionUUID->"d30ec14b-bf78-4cac-aafc-2edb5312aff2"],
Cell[63610, 1608, 419, 8, 28, "Input",ExpressionUUID->"8674dfd0-e480-4a42-9d9d-24db424e214e"],
Cell[64032, 1618, 346, 7, 28, "Input",ExpressionUUID->"99cb88fb-52c3-4244-a923-72c65f767416"],
Cell[64381, 1627, 1723, 32, 48, "Input",ExpressionUUID->"376e642e-f3b9-4d41-86e8-b01bed26e4ec"],
Cell[66107, 1661, 869, 16, 28, "Input",ExpressionUUID->"287004de-8550-4bd4-8681-c96049db802e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67013, 1682, 149, 3, 32, "Item",ExpressionUUID->"1f8df648-734b-425c-a19f-7ca72d5d66c7"],
Cell[67165, 1687, 447, 11, 28, "Input",ExpressionUUID->"718d42bc-ab4f-4f20-a785-5061cd83d72d"],
Cell[CellGroupData[{
Cell[67637, 1702, 1222, 25, 86, "Input",ExpressionUUID->"12ebc369-a491-4eea-9b1e-08b9ac21cbd3"],
Cell[68862, 1729, 55079, 1116, 302, "Output",ExpressionUUID->"c0f579d5-9b48-4277-9a89-fb91e5fb693b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[124002, 2852, 164, 3, 67, "Section",ExpressionUUID->"16a90d56-2c95-43fb-8452-630200476418"],
Cell[CellGroupData[{
Cell[124191, 2859, 205, 4, 32, "Item",ExpressionUUID->"5af66c00-577f-4c7a-bf2a-743b0fd452aa"],
Cell[CellGroupData[{
Cell[124421, 2867, 936, 26, 28, "Input",ExpressionUUID->"34bbdbbd-f3f7-4c5e-b220-99f845c0f1a6"],
Cell[125360, 2895, 350, 5, 32, "Output",ExpressionUUID->"045a63e9-7eff-4c25-85ed-0bf8ee7568a3"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[125759, 2906, 147, 3, 32, "Item",ExpressionUUID->"02756a19-acc4-4d4e-b087-b507036bd713"],
Cell[CellGroupData[{
Cell[125931, 2913, 266, 4, 28, "Input",ExpressionUUID->"adc2d26b-8482-411f-92ea-90e9e08960b2"],
Cell[126200, 2919, 293, 4, 32, "Output",ExpressionUUID->"e7f66a7c-9d21-4ddd-9662-d3f2e90ceeaa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126530, 2928, 295, 5, 28, "Input",ExpressionUUID->"65d37bbb-f5eb-467f-8d2e-15e4df140068"],
Cell[126828, 2935, 272, 4, 32, "Output",ExpressionUUID->"43d484a9-8d3c-4715-90c5-a42753440f1e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[127137, 2944, 272, 4, 28, "Input",ExpressionUUID->"b0895475-89f3-445a-a333-8e818783633f"],
Cell[127412, 2950, 274, 4, 32, "Output",ExpressionUUID->"5057f02c-f7b1-43a6-908f-355395fe50af"]
}, Open  ]],
Cell[CellGroupData[{
Cell[127723, 2959, 444, 8, 28, "Input",ExpressionUUID->"7072c0a3-2c0a-45bf-a130-3e8c6372969e"],
Cell[128170, 2969, 267, 4, 32, "Output",ExpressionUUID->"7a11aada-fe08-47b5-8e99-ef79a0a6c836"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128474, 2978, 604, 13, 48, "Input",ExpressionUUID->"4c63ef7b-302a-476b-bc9c-1e9c2e2a7ab6"],
Cell[129081, 2993, 268, 4, 32, "Output",ExpressionUUID->"a2f93ffc-e21d-46d1-a2c8-d278ee04b18b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[129386, 3002, 267, 4, 28, "Input",ExpressionUUID->"77de94d6-b5a4-4a68-a576-a0d3f1aec678"],
Cell[129656, 3008, 292, 4, 32, "Output",ExpressionUUID->"8ddf245c-14d2-4441-87c1-27e0feeb9d43"]
}, Open  ]],
Cell[CellGroupData[{
Cell[129985, 3017, 344, 5, 28, "Input",ExpressionUUID->"0f855ada-d3c0-47cd-a9ec-ba5132c17029"],
Cell[130332, 3024, 320, 5, 32, "Output",ExpressionUUID->"c3f111ca-a663-412d-92dc-9d670985da87"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130689, 3034, 301, 5, 28, "Input",ExpressionUUID->"60c5505a-f62a-485e-8051-fad4bd19317d"],
Cell[130993, 3041, 294, 4, 32, "Output",ExpressionUUID->"1dddd30c-f9bd-4b99-bdae-574186c00c3c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[131324, 3050, 497, 9, 28, "Input",ExpressionUUID->"b7dffe05-4a6a-4b17-924a-6e81b6265cb8"],
Cell[131824, 3061, 290, 4, 32, "Output",ExpressionUUID->"94b0e8db-3d7b-4999-9e97-0ba4cd47393e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132151, 3070, 658, 14, 48, "Input",ExpressionUUID->"1bb1c4f0-cf56-4e81-85d8-c5b2e0248159"],
Cell[132812, 3086, 279, 4, 32, "Output",ExpressionUUID->"033b1774-21c7-4ac9-8ec8-27f3bfa3b314"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[133140, 3096, 150, 3, 32, "Item",ExpressionUUID->"25050cd2-d11c-46ef-9b1a-a0b63d015ad0"],
Cell[CellGroupData[{
Cell[133315, 3103, 318, 5, 28, "Input",ExpressionUUID->"53da8ac4-de36-439e-b1ec-ea1050f753e9"],
Cell[133636, 3110, 287, 4, 32, "Output",ExpressionUUID->"d84436cd-5cca-4168-b114-ca0c1342d8e6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133960, 3119, 396, 6, 28, "Input",ExpressionUUID->"3da9db4b-c1b5-4b24-9f83-e605918b3830"],
Cell[134359, 3127, 292, 4, 32, "Output",ExpressionUUID->"257a2807-a699-48f8-a0f5-d243b394e69a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134688, 3136, 351, 5, 28, "Input",ExpressionUUID->"cd58d9da-0352-4509-a0d9-2142bd8226b0"],
Cell[135042, 3143, 284, 4, 32, "Output",ExpressionUUID->"aae997fa-bcff-499e-bbe7-3950ee3f1f64"]
}, Open  ]],
Cell[CellGroupData[{
Cell[135363, 3152, 545, 9, 28, "Input",ExpressionUUID->"b9cb2719-717a-4212-9cc4-c24c3d64ae60"],
Cell[135911, 3163, 292, 4, 32, "Output",ExpressionUUID->"83aa7097-35b3-4d09-b220-9b2a8605ca87"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136240, 3172, 705, 14, 48, "Input",ExpressionUUID->"53b36903-ed91-46f1-9d4b-81ca8378b338"],
Cell[136948, 3188, 278, 4, 32, "Output",ExpressionUUID->"07a0414e-426d-44ab-9102-c57d56e64d79"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137263, 3197, 268, 4, 28, "Input",ExpressionUUID->"173dc55c-f483-4cbf-8bd0-7a108077c4d8"],
Cell[137534, 3203, 290, 4, 32, "Output",ExpressionUUID->"56e660a8-ee67-494e-90cd-0a1b1c3f00cf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137861, 3212, 343, 5, 28, "Input",ExpressionUUID->"f3337d36-dfb2-43df-a0bc-14123b9d5dba"],
Cell[138207, 3219, 267, 3, 32, "Output",ExpressionUUID->"9ca4a2eb-0fbb-423d-9e23-be14bd8d9072"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138511, 3227, 325, 5, 28, "Input",ExpressionUUID->"742fbdbb-68fa-495e-9102-e1b8a1fc830c"],
Cell[138839, 3234, 261, 3, 32, "Output",ExpressionUUID->"94da6aad-82fe-4f76-8e51-c3e7d47f206e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[139137, 3242, 495, 9, 28, "Input",ExpressionUUID->"29aed3ad-e018-47ea-80a8-2d1626db8b21"],
Cell[139635, 3253, 263, 3, 32, "Output",ExpressionUUID->"96679aaf-d7b1-4498-a429-d4ca8cab1752"]
}, Open  ]],
Cell[CellGroupData[{
Cell[139935, 3261, 652, 14, 48, "Input",ExpressionUUID->"36048e36-fea9-47fe-9a7f-cedfe05c51dc"],
Cell[140590, 3277, 261, 3, 32, "Output",ExpressionUUID->"4c552cdd-cac3-4a6c-a004-8bb54053311b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[140900, 3286, 151, 3, 32, "Item",ExpressionUUID->"d10d61f5-e766-4217-989c-a321047ea04a"],
Cell[CellGroupData[{
Cell[141076, 3293, 372, 6, 28, "Input",ExpressionUUID->"930fb36a-5c16-4a6b-bf66-8d827bb8acca"],
Cell[141451, 3301, 336, 4, 32, "Output",ExpressionUUID->"b893d396-7b5e-40d6-88e8-fe0c32e4d050"]
}, Open  ]],
Cell[CellGroupData[{
Cell[141824, 3310, 449, 7, 28, "Input",ExpressionUUID->"6e2c3876-2e73-43ca-ba21-82f7b1d26f78"],
Cell[142276, 3319, 336, 4, 32, "Output",ExpressionUUID->"36e79fcd-3c27-4fa3-b2c0-30b2254c74ab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[142649, 3328, 404, 6, 28, "Input",ExpressionUUID->"fd7b0b32-0eba-460b-869a-21b4e3e01f09"],
Cell[143056, 3336, 334, 4, 32, "Output",ExpressionUUID->"196abef4-154f-46c2-be8d-a7699552b771"]
}, Open  ]],
Cell[CellGroupData[{
Cell[143427, 3345, 598, 10, 28, "Input",ExpressionUUID->"c6560fcf-c216-4974-82f4-a748758cd07c"],
Cell[144028, 3357, 336, 4, 32, "Output",ExpressionUUID->"bc711bfd-24b9-47fa-bdc7-e641080400d8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[144401, 3366, 759, 15, 48, "Input",ExpressionUUID->"abb61572-abec-4987-ace2-0ba2693181cd"],
Cell[145163, 3383, 298, 4, 32, "Output",ExpressionUUID->"48ebba4c-0a8d-4b04-b7bd-552b7a5adc48"]
}, Open  ]],
Cell[CellGroupData[{
Cell[145498, 3392, 324, 5, 28, "Input",ExpressionUUID->"a823b8eb-809c-431b-b23a-6ead9452fbe1"],
Cell[145825, 3399, 314, 4, 32, "Output",ExpressionUUID->"8993eee8-d732-41a2-80eb-17d14efdab51"]
}, Open  ]],
Cell[CellGroupData[{
Cell[146176, 3408, 370, 6, 28, "Input",ExpressionUUID->"2aa96757-3c79-422e-98e1-775e5222dc18"],
Cell[146549, 3416, 290, 4, 32, "Output",ExpressionUUID->"aed04d52-aba0-40aa-bc08-99fd5141b1e9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[146876, 3425, 349, 5, 28, "Input",ExpressionUUID->"3e9f3494-e40b-4192-b63b-95b13985aa00"],
Cell[147228, 3432, 275, 4, 32, "Output",ExpressionUUID->"113a4336-2440-4f01-8133-e59a6b547f29"]
}, Open  ]],
Cell[CellGroupData[{
Cell[147540, 3441, 545, 9, 28, "Input",ExpressionUUID->"390d9713-a351-4d93-b9b7-b712cc29ec14"],
Cell[148088, 3452, 287, 4, 32, "Output",ExpressionUUID->"3cfc801d-0cf0-43b1-9d70-063a49f7f82c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[148412, 3461, 703, 14, 48, "Input",ExpressionUUID->"e13aac02-3d99-43ad-a2ae-eea0583b1dfd"],
Cell[149118, 3477, 291, 4, 32, "Output",ExpressionUUID->"1f5790ec-6f92-420d-8a15-1ea787a4e658"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[149470, 3488, 178, 3, 67, "Section",ExpressionUUID->"943d7995-b61c-4300-9c69-8085b382ca99"],
Cell[CellGroupData[{
Cell[149673, 3495, 180, 3, 32, "Item",ExpressionUUID->"7f23f379-7af0-4646-a10b-12618f22ca24"],
Cell[149856, 3500, 247, 6, 29, "Input",ExpressionUUID->"067c33d4-1b41-4bee-82ea-a27ad1c10df7"],
Cell[150106, 3508, 269, 6, 29, "Input",ExpressionUUID->"2be3551f-caad-472d-8ffe-2db61c1b8f5b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150412, 3519, 178, 4, 32, "Item",ExpressionUUID->"0e372ccf-f1aa-413c-8b81-7a6b4a5f71f5"],
Cell[CellGroupData[{
Cell[150615, 3527, 982, 30, 29, "Input",ExpressionUUID->"1410af5c-f619-4e5f-949a-46734c763ede"],
Cell[151600, 3559, 220, 4, 32, "Output",ExpressionUUID->"e252b3a3-fcda-4937-b166-0c0cfffd3f8e"]
}, Open  ]],
Cell[151835, 3566, 3383, 82, 124, "Input",ExpressionUUID->"0bdfecf4-5317-4dbf-8a4b-be812bd7f404"],
Cell[CellGroupData[{
Cell[155243, 3652, 495, 9, 28, "Input",ExpressionUUID->"25ea1dca-2849-436e-b10d-1784fd188def"],
Cell[155741, 3663, 626, 9, 32, "Output",ExpressionUUID->"d994f5ae-5c6b-43f6-b6d7-937dcf10a91f"]
}, Open  ]],
Cell[156382, 3675, 6384, 163, 238, "Input",ExpressionUUID->"86561608-ee99-4214-bdf9-b221cab5c941"],
Cell[162769, 3840, 4698, 123, 143, "Input",ExpressionUUID->"670eb8ec-623f-4b23-9f09-c87669d2138a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[167504, 3968, 151, 3, 32, "Item",ExpressionUUID->"fd1de509-bf88-4c91-b376-41123f52d6ad"],
Cell[167658, 3973, 1627, 42, 48, "Input",ExpressionUUID->"6421b9fc-69a8-488d-a0e8-dfd54e2cda68"],
Cell[169288, 4017, 4101, 109, 105, "Input",ExpressionUUID->"701bc191-349a-429e-87ce-5f2957393015"],
Cell[173392, 4128, 4596, 122, 162, "Input",ExpressionUUID->"86b07cf8-2118-41a9-92d8-784a27fcf7f2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178025, 4255, 273, 6, 32, "Item",ExpressionUUID->"23074398-ac7b-4afd-8e6f-11be0ecd47fd"],
Cell[178301, 4263, 1173, 25, 67, "Input",ExpressionUUID->"55fc1b54-1bae-46a1-9666-1c37fed761ac"],
Cell[179477, 4290, 1027, 23, 67, "Input",ExpressionUUID->"7b3b1da4-e36c-4fc0-8249-a8779b3a21d0"],
Cell[180507, 4315, 1092, 24, 67, "Input",ExpressionUUID->"5faee1ad-bd06-4f26-8e3f-eabe450d69cc"],
Cell[181602, 4341, 993, 23, 67, "Input",ExpressionUUID->"85e6c855-fcc6-4d2e-9f53-9a0b6648f1bc"],
Cell[182598, 4366, 951, 22, 67, "Input",ExpressionUUID->"b2a7a5e9-aa57-429c-8c3f-79d634838825"],
Cell[183552, 4390, 920, 21, 48, "Input",ExpressionUUID->"419040bd-bc05-484c-b8b1-2cc09090f5d3"],
Cell[184475, 4413, 877, 18, 28, "Input",ExpressionUUID->"c78524a8-a5d0-4216-8860-edc41157a877"],
Cell[185355, 4433, 737, 16, 28, "Input",ExpressionUUID->"0ce16e54-d7c5-45aa-b929-95d67bcc6ae5"],
Cell[186095, 4451, 759, 17, 28, "Input",ExpressionUUID->"b0f43e64-cc4f-46f3-b365-c00c6900ccf5"],
Cell[186857, 4470, 687, 16, 28, "Input",ExpressionUUID->"4ced7bd5-1215-43c6-9d81-fa7c371c944c"],
Cell[187547, 4488, 691, 16, 28, "Input",ExpressionUUID->"18c3a032-0f5a-48e9-abb2-36c8eecd2f00"],
Cell[188241, 4506, 665, 15, 28, "Input",ExpressionUUID->"d685c903-af7d-40d3-b7ea-c4a93e2bc63c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[188943, 4526, 275, 4, 32, "Item",ExpressionUUID->"9f85c69f-2d46-41d1-a4c5-cf2a15f9a207"],
Cell[189221, 4532, 1677, 31, 28, "Input",ExpressionUUID->"7a70fc46-a83e-4031-95f2-a683d4fca2a9"],
Cell[190901, 4565, 1804, 33, 28, "Input",ExpressionUUID->"3960b776-7d4f-430f-953e-a60f364c0101"],
Cell[192708, 4600, 1662, 32, 28, "Input",ExpressionUUID->"036e31b0-e279-4912-a709-26fa3d4a02f6"],
Cell[194373, 4634, 1659, 31, 28, "Input",ExpressionUUID->"31749bf6-9fdf-4693-82b8-1cebe44f2ee6"],
Cell[196035, 4667, 755, 15, 28, "Input",ExpressionUUID->"01f3d2a9-0f89-4e60-8094-410471907e41"],
Cell[196793, 4684, 355, 9, 28, "Input",ExpressionUUID->"ba26a7ac-b7cd-49a1-86ba-6e1f1d61f53c"],
Cell[197151, 4695, 1974, 37, 67, "Input",ExpressionUUID->"11fff26c-36ef-4481-b629-76adfa94e070"],
Cell[199128, 4734, 1129, 21, 48, "Input",ExpressionUUID->"663f73bd-95bb-4db1-97ec-6cc2a1356063"]
}, Open  ]],
Cell[CellGroupData[{
Cell[200294, 4760, 154, 3, 32, "Item",ExpressionUUID->"eb062586-1f41-48fd-ae50-ee0c5fdcbb79"],
Cell[CellGroupData[{
Cell[200473, 4767, 553, 12, 28, "Input",ExpressionUUID->"5d2b72e6-34a1-4e3e-85fb-0a97937a6b76"],
Cell[201029, 4781, 2548, 62, 241, "Output",ExpressionUUID->"28f6e7dc-6da3-4f3d-9e65-44864d0c7aed"]
}, Open  ]],
Cell[203592, 4846, 438, 13, 28, "Input",ExpressionUUID->"22435282-32fd-4d5d-aa5c-7b0ab2aa8498"],
Cell[CellGroupData[{
Cell[204055, 4863, 386, 9, 28, "Input",ExpressionUUID->"394db3b3-2c98-415a-adbb-21a72f4830fb"],
Cell[204444, 4874, 1330, 37, 241, "Output",ExpressionUUID->"c1e9b1cb-4632-4f69-b5a3-b2a9b062e188"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[205823, 4917, 147, 3, 32, "Item",ExpressionUUID->"11f1ceb0-f4d7-4611-b6a6-307b3560f8c8"],
Cell[CellGroupData[{
Cell[205995, 4924, 1398, 27, 105, "Input",ExpressionUUID->"735cb964-649b-46d0-94c4-657781e01267"],
Cell[207396, 4953, 44659, 944, 302, "Output",ExpressionUUID->"0d2ac669-809e-4662-811e-1be62333f858"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[252116, 5904, 228, 5, 67, "Section",ExpressionUUID->"3868a881-cbc1-4b3b-98d1-841558949e22"],
Cell[CellGroupData[{
Cell[252369, 5913, 1090, 29, 28, "Input",ExpressionUUID->"cb7591d4-9db9-443d-a17b-0e2ef4f3fb38"],
Cell[253462, 5944, 17511, 347, 241, "Output",ExpressionUUID->"34bc22a0-5ffb-40ac-bc6f-f626aa423523"]
}, Open  ]],
Cell[CellGroupData[{
Cell[271010, 6296, 275, 4, 32, "Item",ExpressionUUID->"59af3785-b408-49a5-80dc-32ff6701458c"],
Cell[271288, 6302, 1561, 29, 28, "Input",ExpressionUUID->"56d57172-d3a5-4ced-b07f-db7a3fd8539b"],
Cell[272852, 6333, 858, 19, 28, "Input",ExpressionUUID->"b1cb3d70-9033-434e-ae35-50c7d7d80bc1"],
Cell[273713, 6354, 1589, 30, 28, "Input",ExpressionUUID->"5a0c095e-5db3-4ecf-a1b0-d3b51b8f75cc"],
Cell[275305, 6386, 257, 6, 28, "Input",ExpressionUUID->"7de92d07-fea8-4a48-8af7-1f90501afd05"],
Cell[275565, 6394, 989, 28, 28, "Input",ExpressionUUID->"e1fe46a0-c21c-46ae-8bce-74902bf26e5c"],
Cell[276557, 6424, 666, 16, 28, "Input",ExpressionUUID->"222dca29-d62b-4af3-8afc-984224b26a9c"],
Cell[277226, 6442, 468, 13, 28, "Input",ExpressionUUID->"a8491441-b20d-4a70-9f75-ba2274646d62"],
Cell[277697, 6457, 467, 13, 28, "Input",ExpressionUUID->"de246830-0e91-40dc-aa33-3572351f39f9"],
Cell[278167, 6472, 712, 13, 28, "Input",ExpressionUUID->"997f4e86-8d9d-4e3a-a7c1-0e844fc95404"],
Cell[278882, 6487, 409, 10, 28, "Input",ExpressionUUID->"f346619a-e928-4b17-94db-70dcd4a3ee56"],
Cell[279294, 6499, 680, 13, 28, "Input",ExpressionUUID->"15c2a4fe-7bc7-473d-b1d5-d5bf10fa9d43"],
Cell[279977, 6514, 410, 10, 28, "Input",ExpressionUUID->"612dd8e3-3d14-4146-8081-49c05711f417"],
Cell[280390, 6526, 477, 10, 28, "Input",ExpressionUUID->"c713f4ce-e963-42c9-9a86-a204ef2fd585"],
Cell[280870, 6538, 405, 9, 28, "Input",ExpressionUUID->"55f094ee-8878-4652-802e-1712fb709878"],
Cell[281278, 6549, 1977, 36, 48, "Input",ExpressionUUID->"b1b9ec9c-3594-4f44-bb22-f703a787a0c1"],
Cell[283258, 6587, 1020, 19, 28, "Input",ExpressionUUID->"923a46c2-30a7-4b00-8900-d6336f90648a"],
Cell[284281, 6608, 810, 14, 28, "Input",ExpressionUUID->"3ebb4682-1877-4e6f-80c8-13a95afc8812"],
Cell[285094, 6624, 341, 8, 28, "Input",ExpressionUUID->"84e5a6fc-52aa-4f35-8ff6-df25b07cd5cf"],
Cell[285438, 6634, 461, 10, 28, "Input",ExpressionUUID->"589d9747-32e7-419d-bfb4-36593a8deaa1"],
Cell[285902, 6646, 331, 8, 28, "Input",ExpressionUUID->"7c1b2dc8-043c-406e-87e9-013818871dc9"],
Cell[286236, 6656, 407, 9, 28, "Input",ExpressionUUID->"42a45fb7-c3d7-4ef1-a372-a6c2337f1f42"],
Cell[286646, 6667, 1209, 26, 48, "Input",ExpressionUUID->"0aa26ea9-bd83-4e8a-862c-cfede9af790c"],
Cell[287858, 6695, 850, 21, 48, "Input",ExpressionUUID->"283b2115-c80d-442f-a792-7b2a676694c3"],
Cell[288711, 6718, 764, 16, 28, "Input",ExpressionUUID->"c562deb7-36a9-4de1-b9fd-60875c25a50f"],
Cell[289478, 6736, 570, 13, 28, "Input",ExpressionUUID->"4556c548-d2f1-4004-8a1b-7e8c9cc82d1e"],
Cell[290051, 6751, 746, 16, 28, "Input",ExpressionUUID->"6e537720-1bdb-4b69-9550-7bcb2f87ce1b"],
Cell[290800, 6769, 591, 14, 28, "Input",ExpressionUUID->"52f400ed-84c1-4de7-9b47-ab3a9aa03f82"],
Cell[CellGroupData[{
Cell[291416, 6787, 1336, 28, 67, "Input",ExpressionUUID->"646183bd-0e87-4a8c-b848-34475560377b"],
Cell[292755, 6817, 63910, 1293, 290, "Output",ExpressionUUID->"46d53352-a020-4335-b77c-648b5bfb0019"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

